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/* ■ ■ -j w S 

* plugextl.O is a compiled 1 version of plugext for Tel. 

* Clif Flynt <clif@cflynt . com> Jan 3, 1999 So?" 

* _ _ voc=d 

0 

* -- Modified from get.c by *^ 

* -- Jean-Claude Wippler <jcw@equi4.com>, September 17, 1998. 
*/ 



#include <stdio.h> 
#if defined (_WIN32) 
#include <windows.h> 
#else 

#include <dlfcn.h> 
#endif 

#include <tcl.h> 



Tcl_HashTable *dlopen_hashtablePtr ; 
extern int dummy DebugPrint ; 

void dlopen_InitHashTable () { 

dlopen_hashtablePtr = (Tcl_HashTable *) ckalloc ( sizeof (Tcl_HashTable) ) ; 

Tcl_InitHashTable (dlopen_hashtablePtr, TCL STRING KEYS); 
} " " 

static int 

dlOpen (ClientData x, Tcl_Interp* interp, int objc, Tel Obj*CONST* objv) 

{ 

char hash_handle [50] ; 
char *tmp; 
void *handle; 

Tcl_HashEntry *hashEntryPtr ; 
TclJDbj *returnObjPtr; 
int isNew; 



if (objc > 1) 
{ 

tmp = Tcl_GetStringFromObj (objv [1] , NULL); 
#if defined (_WIN32) 

handle = LoadLibrary ( tmp) ; 
#else 

handle = dlopen{tmp, RTLD_N0W | RTLD_GLOBAL) ; 

ttendif 

if (lhandle) { 

fprintf (stderr, "FAIL IN DLOPEN: %s\n" , tmp); 
#if defined (_WIN32) 

fprintf (stderr, "%s\n", "Is there a windows errro fen"); 

#else 

fprintf (stderr, "%s\n", dlerrorO); 

#endif 

return (TCL_ERR0R) ; 

} 

} 



/ 



* Allocate the space and initialize the return structure. 
*/ 

sprintf (hash_handle, "X%x" / handle) ; 

hashEntryPtr = Tcl_CreateHashEntry (dlopenJiashtablePtr , hash_handle, 
ficisNew) ; 

Tcl_SetHashValue (hashEntryPtr, handle) ; 
returnObjPtr = Tcl_NewStringObj (hashjiandle , -1) ; 
Tcl_SetObjResult (interp, returnObjPtr) ; 
return TCL_OK; 

} 

getfpucwO {printf ("hit getfpucw\n M ) ; f flush (stdout) ; } 



#if defined (_WIN32) 
static int 

dlSym(ClientData x, Tcl_Interp* interp, int objc, Tcl_Obj *CONST* objv) { 
Tcl_Ob j * re turnOb j Pt r ; 

returnObjPtr = Tcl_NewStringObj ( "dlSym not implemented for Windows", -1) ; 

Tcl_SetObjResult (interp, returnObjPtr) ; 
return TCL_OK; 

} 

#else 

static int 

dlSym(ClientData x, Tcl_Interp* interp, int objc, Tcl_Obj *CONST* objv) 
{ 

char *hash_handle ; 
char *tmp; 
void *handle; 

Tcl_HashEntry *hashEntryPtr ; 

Tc l_Ob j * re t urnOb j P t r ; 
void *locat; 
char rtnString [20] / 



if (objc > 1) 

{ 

hash_handle = Tcl_GetStringFromObj (obj v [1] , NULL) ; 

hashEntryPtr = Tcl_FindHashEntry (dlopen_hashtablePtr , hashjiandle) ; 

if (hashEntryPtr == (Tcl_HashEntry *) NULL) { 
char errString [80] ; 
Tcl_Obj *errCodePtr; 



/* 



* Define an error code from an integer, and set errorCode . 
*/ 

errCodePtr = Tcl_NewIntObj (554) ; 
Tcl_SetObj ErrorCode (interp, errCodePtr); 

/* 

* This string will be placed in the global variable errorlnfo 
*/ 

sprintf (errString, "Hash object \"%s\" does not exist.", hash_handle) ; 
Tcl_AddErrorInfo (interp, errString) ; 

/* 

* This string will be returned as the result of the command. 
*/ 

Tcl_AppendResult (interp, "can not find hashed object named \"", 

hash_handle, "\" M , (char *) NULL) ; 
return TCL__ERROR ; 
} 

handle = (char * ) Tcl_GetHashValue (hashEntryPtr) ; 
tmp = Tcl_GetStringFromObj (objv [2] , NULL) ; 
locat = dlsym (handle , tmp) ; 
sprintf (rtnString, "%x" , locat) ; 

} 

/* 

* Allocate the space and initialize the return structure. 
*/ 



returnObjPtr = Tcl_NewStringObj (rtnString, -1) / 
Tcl_SetObjResult (interp, returnObjPtr) ; 
return TCL_OK; 

} 

#endif 

#if defined (_WIN32) 

ftdefine WINEXPORT(t) declspec (dllexport ) t 

#elif defined (_WIN) 

#define WINEXPORT(t) t ^export 
#else 

#define WINEXPORT(t) t 
#endif 

#if defined ( MWERKS ) 

#pragma export on 
#endif 



WINEXPORT ( int ) Dlopen_Init (Tcllnterp* interp) 

{ 

Tcl_CreateObj Command (interp, "dlopen", dlOpen, 0, 0) ; 
Tcl_CreateObj Command (interp, "dlsym", dlSym, 0, 0) ; 

dlopen_InitHashTable () ; 

Tcl_PkgProvide (interp, "dlopen", "1.0") ; 



return TCL_OK; 

} 

WINEXPORT (int) Dlopen_Saf elnit (Tel Interp* interp) 
{ 

return Dlopen_Init (interp) ; 

} 



package require plugext 



Embed - state variable 
Embed (uniq) - A unique number for the instances 
Embed (UPPER. $id) - A keyword/value pair for an instance. 
Embed (lower . $id) - A value assigned by the embed command. 



Embed (MIMETYPE) 
Embed (instance . $id) 
Embed (canvas . $id) 



The command for this creation of the plugin 
The command for this instance of the plugin 
The canvas for this instance of the plugin 



Adds one new arg to embed xx=yy 



KEEP0PEN=1 



KEEPOPEN=0 



default - the embed call does not close the stream after 
sending data to the plugin. 

default - the embed call closes the stream after 
sending data to the plugin. Closing the stream causes some 
plugins to start. 



namespace eval EMBED { 
variable Embed 

variable output [open argh w] 

set Embed (uniq) 1 

set Embed (CanvasParent) " " 



{ 



switch $tcl_platf orm (platform) 
"unix" { 

package require .dlopen 
set Embed (xref) { 

{ .mid audio/x-midi /usr/lib/netscape/plugins/ump . so} 
{ .midi audio/x-midi /usr/lib/netscape/plugins/ump . so} 

} 

} 

"windows" { 

set Embed (xref) { 

.rpm audio/x-pn-realaudio-plugin . /nppl3260 . dll } 
. rm audio/x-pn-realaudio-plugin . /nppl3260 . dll } 
. spl application/f uturesplash . /npswf 32 .dll} 
.swf application/shockwave-f lash . /npswf 32 . dll } 
.pdf application/pdf . /nppdf 32 . dll } 
.afl video/animaf lex ./nprub.dll} 
.ivf video/x-ivf . /npindeo . dll } 
.wav audio/x-wav . /npwave.dll} 
.mid audio/x-midi ./midid.dll} 
.midi audio/x-midi ./midid.dll} 
.npw application/x-npwrap . /NPWrap.dll } 
.mid audio/x-midi . /npmidi . dll} 
.midi audio/x-midi . /npmidi .dll} 

} 

} 



# 
# 



proc getCanvas {id} { 
variable Embed 

if {[info exists Embed (canvas . $id) ] } { 



return $Embed (canvas .$ id) 
} else { 

return " " 

} 

} 

proc getlnstance {id} { 
variable Embed 

if {[info exists Embed (canvas .$ id) ] } { 
return $Embed ( instance . $id) 

} else { 

return " " 

} 

} 

proc setCanvasParent {windowID} { 

set Embed (CanvasParent) $windowID 

} 



proc embed {args} { 

global tcl_platform 
variable Embed 
variable output 

set id $Embed (uniq) 
incr Embed (uniq) 

set mode "EMBED" 

set Embed (HIDDEN. $id) true 

set Embed (KEEPOPEN. $ id) 1 

# 

# Parse the args . 

# Find the key=val and key="val" pairs and convert them to 

# set Embed (KEY) val 

# commands . 
# 

foreach arg $args { 

if { [string first " = " $arg] < 0} {continue} 
foreach {key val} [split $arg " = "] { 

set val [string trim $val ' { " } ] 

set key [string toupper $key] 

} 

eval [list set Embed ($key. $ id) $val] 

} 
# 

# If the plugext extension is not loaded, load it. 

# If *n[ui]x platform, dlopen the required X libraries. 
# 

if {[string match " " [info command plugext]]} { 

if {[string match $tcl_platf orm (platform) unix] } { 
puts $output "loading dlopen, etc" ; flush $output 
# load "./dlopen" 



dlopen '7usr/XllR6/lib/libXt . so" 
dlopen n /usr/ local /lib/libXm. so" 

} 

# load plugext 
plugext debug 1 



# 

# Figure out which plugin we need. Start by checking 

# the SRC=...ext to see if we've got that extension in our list. 
# 

if {[info exists Embed (SRC . $id) ] } { 

set ext [file extension $Embed (SRC. $id) ] 
set pos [lsearch $Embed (xref ) *${ext}*] 
if {$pos >= 0} { 

set pluginPath [lindex [lindex $Embed (xref ) $pos] 2] 
if { ! [info exists Embed (TYPE .$ id) ] } { 

set Embed (TYPE. $id) [lindex [lindex $Embed(xref) $pos] 1] 

} 

} 

} 

# If no SRC matched, see if we can get the required info 

# via the Mime TYPE=xx value 

if { ! [info exists pluginPath] && [info exists Embed (TYPE .$ id) ] } { 
set pos [lsearch $Embed{xref) *$Embed (TYPE . $id) * ] 
if {$pos < 0} {break} 

set pluginPath [lindex [lindex $Embed(xref) $pos] 2] 

} 

# If we still can't figure out what to use, give up. 

if { ! [info exists pluginPath] } { 

error "No plugin defined for $args" 

} 

# Load the required plugin. 

# Save it 1 s handle in a state variable keyed by the Mime Type 

set pluginID $Embed (TYPE . $id) 

if { ! [info exists Embed ($pluginID) ] } { 

set Embed ($pluginID) [plugext create TST2 -path $pluginPath] 

} 

foreach a $args { 

if {[string first "=" $a] > 0} { 
if { [info exists embedargs] } { 

append embedargs " " $a 
} else { 

set embedargs $a 

} 

} 

} 



set Embed (instance . $id) [$Embed ($pluginID) new \ 

-mime $Embed (TYPE . $id) -embed $embedargs \ 
-mode $mode] 

# 

# Generate a window, if HEIGHT and WIDTH are set, and HIDDEN=f alse/0 

# If HIDDEN == True but HEIGHT/WIDTH are missing, set default size 

# 200x200 

# Can't use ! with a string, so I kludge to get ! hidden 

if { "$Embed (HIDDEN. $ id) " } {} else { 
set ht 200; 
set wd 200; 

if {[info exists Embed (HEIGHT. $ id) ] } { 
set ht $Embed (HEIGHT. $id) 

} 

if {[info exists Embed (WIDTH . $id) ] } { 
set wd $Embed (WIDTH. $id) 

} 

set Embed (canvas .$ id) [canvas $Embed (CanvasParent ) . cPLUGIN$id \ 
-height $ht -width $wd -background yellow] 

puts $output "CANVAS: $Embed ( canvas .$ id) :: $ht x $wd n ; flush $output 

# Grid and update, to make sure the base OS has really allocated 

# space for this window before sending it to the plugin. Else, 

# life gets exciting. 

grid $Embed (canvas . $id) -row 0 -column 0 
update; update idle; 

$Embed (instance. $id) setwindow $Embed (canvas . $id) 
grid forget $Embed (canvas . $id) 

} 
# 

# Figure out the type of stream we'll need to interact with 

# Then close the stream again. 
# 

set Embed (out . $id) [$Embed (instance . $id) open -url file : $Embed (SRC . $id) -mime 
$Embed(TYPE. $id) w] 

f configure $Embed (out . $id) -translation binary 
set streamType [$Embed (instance . $id) streamtype] 

puts $output "STR: $streamType" ; flush $output 

# 

# Dump data as required by the stream type. 
# 



switch $streamType { 
"asfile" { 



$Embed (instance . $id) streamfile $Embed (SRC . $id) 

} 

"asf ileonly" { 

$Embed (instance. $id) streamfile $Embed (SRC . $id) 

. } 

"normal" { 

set in [open $Embed (SRC . $id) r] 
fconfigure $in -translation binary 

set maxTransfer [$Embed (instance . $id) writeready $Embed (out . $id) ] 
if {$maxTransf er > 64000} { 
set maxTransfer 64000 

} 

puts $output "maxTransfer: $maxTransf er" 

fconfigure $Embed (out . $id) -buffersize $maxTransfer 

# If the file is small go for speed. 

# If it's greater than 64K, reduce the memory footprint, 

# since it won't be fast no matter what we do. 

if {[file size $Embed (SRC . $id) ] > 64000} { 
while { ! [eof $in] } { 

set dat [read $in 4096] 

puts -nonewline $Embed (out . $id) $dat 

} 

flush $Embed (out . $id) 
} else { 

set dat [read $in] 
close $in 

puts -nonewline $Embed (out . $id) $dat 
flush $Embed (out . $id) 

} 

puts "DONE XFER" 

} 

default { 

error "Unrecognized stream value: $streamType" 

} 

} 

if { !$Embed(KEEPOPEN.$id) } { 

puts "CLOSING $Embed(out.$id) " 
closeFile $id 

} 

return $id 



proc resetWindow {id} { 
variable Embed 

if { "$Embed (HIDDEN. $ id) "} {} else { 

$Embed (instance . $id) setwindow $Embed (canvas .$ id) 

} 

} 

proc closeFile {id} { 
variable Embed 

if {[info exists Embed (out . $id) ] } { 
close $Embed (out . $id) 
unset Embed (out . $id) 



} 

} 
} 



THIS PAGE BLANK (USPTO) 



#if defined (_WIN3 2) 
#include <windows . h> 
#endif 

#include "extensionLib . h" 

void *getHashData (Tcl_Interp *interp, 
char *hashName, 

Tcl_HashTable *hashtablePtr) { 
Tcl_HashEntry * hashEntryPtr ; 
hashEntryPtr = Tcl_FindHashEntry (hashtablePtr , hashName); 

if (hashEntryPtr == (Tcl_HashEntry *) NULL) { 
char errString [80] ; 
Tcl_Obj *errCodePtr; 

/* 

* Define an error code from an integer, and set errorCode . 
*/ 

errCodePtr = Tcl_NewIntObj (554) ; 
Tcl_SetOb j ErrorCode ( interp , errCodePtr ) ; 

/* 

* This string will be placed in the global variable errorlnfo 
*/ 

sprintf (errString, "Hash object \"%s\" does not exist. ", hashName); 
Tcl_AddErrorInfo (interp, errString) ; 

/* 

* This string will be returned as the result of the command. 
*/ 

Tcl_AppendResult (interp, "can not find hashed object named \"", 
hashName, "\ H ", (char *) NULL); 

return (void *) NULL; 

} 

/* 

* If we got here, then the search was successful and we can extract 

* the data value from the hash entry and return it. 
*/ 

return (void *) Tcl_GetHashValue (hashEntryPtr) ,- 

} 



CmdReturn *makeCmdReturn () { 
CmdReturn *returnStructPtr ; 
/* 

* Allocate the space and initialize the return structure. 
*/ 



returnStructPtr = (CmdReturn *) Tcl_Alloc (sizeof (CmdReturn)); 
returnStructPtr->status = TCL_0K; 



returnStructPtr->object = NULL; 



return returnStructPtr ; 

} 

void setErrorReturns (Tcl_Interp *interp, 
char *formatStrl, 
char *paraml_l, 
char *paraml_2 , 
char *paraml_3 , 
char *f ormatStr2 , 
char *param2_l, 
char *param2_2, 
char *param2_3, 
char *procedureName , 
char *errString) 



char errStringl [180] ; 
char errString2 [180] ; 
char errString3 [80] ; 

sprintf (errStringl , formatStrl, paraml_l, paraml_2 , paraml_3) ; 

sprintf (errString2 , formatStr2, param2_l, param2_2 , param2_3) ; 
sprintf (errString3 , "error in %s" / procedureName) ; 

/* 

* Both of these strings will be added to the Tel script 

* global variable errorlnfo 
*/ 

Tcl_AddObj Errorlnfo (interp, errStringl, strlen (errStringl) ) ; 
Tcl_AddErrorInfo (interp, errString3) ; 

/* 

* This SetErrorCode command will set the Tel script 

* variable errorCode to "500" 
*/ 

Tcl_SetErrorCode (interp, errString, (char *) NULL) ; 
/* 

* This defines the return string for this subcommand 
*/ 

Tcl_AppendResult (interp, errStringl, (char *) NULL) ; 



/* 

* void plugext_ InitHashTable ()-- 

* plugextextialize a hash table. 

* If your application does not need a hash table, this may be deleted. 
* 

* Arguments 

* NONE 



* Results 

* Initializes the hash table to accept STRING keys 

* Side Effects: 

* None 

: : */ 

Tcl_HashTable *initHashTable () { 
TclJiashTable *hashtablePtr ; 

hashtablePtr = (Tcl_HashTable *) ckalloc (sizeof (Tcl_HashTable) ) ; 
Tcl_InitHashTable{hashtablePtr / TCL_STRING_KEYS) ; 
return hashtablePtr; 

} 



#ifndef EXTENS ION_LIB_H 
#define EXTENSION_LIB__H 
tfinclude "tcl805.h" 

/* 

* The CmdReturn structure is used by the subroutines to 

* pass back a success/failure code and a Tcl_Obj result. 
* 

* This is not an official Tel standard return type. I 

* find this works well with commands that accept subcommands. 
*/ 

typedef struct cmd_return { 

int status; 

Tcl_Obj *object; 
} CmdReturn; 

typedef struct cmd_Def { 
char *usage; 
int minArgCnt; 
int maxArgCnt; 
} cmdDef inition; 

/* Prototypes for the functions in the extensionLib */ 

void *getHashData (Tcl_Interp *, char*, Tcl_HashTable* ) ; 

CmdReturn *makeCmdReturn ( ) ; 

void setErrorReturns (Tcl_Interp *, 

char *, char *, char *, char *, 

char *, char *, char *, char *, 

char * , char *) ; 

Tcl_HashTable *initHashTable (); 

#endif EXTENSION LIB H 



/* -*- Mode: C; tab-width: 4; -*- */ 
/**********************************^ 

* Java Runtime Interface 

* Copyright (c) 1996 Netscape Communications Corporation. All rights reserved. 
********************************************* 

#ifndef JRI_H 
#define JRI_H 

#include " j ri_md . h" 

#include <stddef.h> 

#include <stdlib . h> 

#include <stdarg.h> 

#ifdef cplusplus 

extern " C { 
#endif 

/****************************^ 

* Types 

****************************** 



typedef void* 

typedef struct JRIGlobal* 



JRIRef ; 

JRIGlobalRef ; 



typedef struct JRINativelnterf ace JRINativelnterf ace ; 
typedef const JRINativelnterf ace* JRIEnv; 



typedef struct JRIFieldThunk 



JRIFieldThunk; 



typedef struct JRIMethodThunk 



JRIMethodThunk; 



/* convenience types: 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 

typedef JRIRef 



j ref ; 

jbooleanArray; 
j byte Array ; 
j charArray ; 
j short Array ; 
j int Array ; 
j longArray; 
j f loat Array ; 
jdoubleArray ; 
j objec t Array; 
j stringArray ; 
jarrayArray; 



typedef union JRIValue { 

jbool z; 
jbyte b; 
jchar c; 
j short 

jint i; 
jlong 1; 
j float 
j double 



s; 



f ; 
d; 



jref 
} JRIValue; 



r; 



typedef enum JRIMethodThunkType { 

JRIMet hodThunkTyp e_Name AndS i g 
} JRIMethodThunkType ; 

struct JRIMethodThunk { 

JRIMethodThunkType type ; 

void* dataO; 
void* datal; 

}; 

typedef enum JRIBoolean { 

JRIFalse = 0, 

JRITrue = 1 

} JRIBoolean; 

typedef struct JRINat ivelnf o { 

char* nativeMethodName; /* input */ 

char* nativeMethodSig; /* input */ 

void* nativeMethodProc ; /* input */ 

} JRINativelnfo; 

#define JRIConstructorMethodName n <init>" 

* Signature Construction Macros 
*******************************^ 

/* 

** These macros can be used to construct signature strings. Hopefully their 
names 

** are a little easier to remember than the single character they correspond to 
** For example, to specify the signature of the method: 



* ★ 

* ★ 

* * 

* * 

+ * 

* * 



public int read(byte b[], int off, int len) ; 

you could write something like this in C: 

char* readSig = JRISigMethod ( JRISigArray ( JRISigByte) 

JRISiglnt 

JRISiglnt ) JRISiglnt ; 



** Of course, don't put commas between the types. 
*/ 

#define JRISigArray (T) " [" T 

#define JRISigByte "B" 
#define JRISigChar "C" 
#define JRISigClass (name) " L " name " ; " 

ttdefine JRISigFloat "F" 
#define JRISigDouble "D" 
#define JRISigMethod (args) " ( " args " ) " 
#define JRISigNoArgs 
#define JRISiglnt "I" 
#define JRISigLong "j» 
#define JRISigShort "S n 



#define JRISigVoid »V" 
#define JRISigBoolean M Z" 

/*************************************^ 

* Environments 

*****************************^^ 

extern JRI_PUBLIC_API ( JRIEnv*) 
JRI_GetCurrentEnv (void) ; 

/* 

** LoadClass borrows the buffer that you hand to it, so it will copy it 
** if it needs to. This is useful when defining a class from static class 
** data. 
*/ 

typedef jref 

(*JRI_LoadClass_t) (JRIEnv* env, const char* buf , jsize bufLen) ; 
/* 

** Returns a jref to a class object from a fully qualified name (package 
** names delimited by '/' and the class name). If the name begins with 
** ■[* (the array signature character), an array class is returned. 
*/ 

typedef jref 

(*JRI_FindClass_t ) (JRIEnv* env, const char* name) ; 
/* Working with Exceptions */ 
typedef void 

(*JRI_Throw_t) (JRIEnv* env, jref ob j ) ; 
typedef void 

(*JRI_ThrowNew_t) (JRIEnv* env, jref clazz, const char* message); 
typedef jref 

(*JRI_ExceptionOccurred_t) (JRIEnv* env) / 
typedef void 

(* JRI_ExceptionDescribe_t) (JRIEnv* env) ; 
typedef void 

(*JRI_ExceptionClear_t) (JRIEnv* env) ; 

/****************************^^ 

* References 

typedef JRIGlobalRef 

(*JRI_NewGlobalRef_t) (JRIEnv* env, jref ref ) ; 
typedef void 

(*JRI_DisposeGlobalRef_t) (JRIEnv* env, JRIGlobalRef ref ) ; 
typedef jref 

(*JRI_GetGlobalRef_t) (JRIEnv* env, JRIGlobalRef globalRef ) / 
typedef void 



(*JRI_SetGlobalRef_t) (JRIEnv* env, JRIGlobalRef globalRef , jref value) 
typedef jbool 

(*JRI_IsSameObject_t) (JRIEnv* env, jref rl, jref r2) ; 

/*****************************^ 
* Object Operations 

**********************************^ 
typedef jref 

(*JRI_NewObject_t) (JRIEnv* env, jref clazz, JRIMethodThunk* method, .. 
typedef jref 

(*JRI_NewObjectA_t) (JRIEnv* env, jref clazz, JRIMethodThunk* method, 

JRIValue* args); 

typedef jref 

(*JRI_NewObjectV_t ) (JRIEnv* env, jref clazz, JRIMethodThunk* method, 

va_list args) ; 

typedef jref 

(*JRIJ3et0bjectClass_t) (JRIEnv* env, jref obj); 
typedef jbool 

(*JRI_IsInstanceOf_t) (JRIEnv* env, jref ob j , jref clazz); 
/*★★*****★*******★★*★★ 

/* Accessing Public Fields of Objects */ 
typedef jref 

(*JRI_GetField_t) (JRIEnv* env, jref ob j , JRIFieldThunk* field); 
typedef jbool 

(*JRI_GetField_boolean_t) (JRIEnv* env, jref obj , JRIFieldThunk* field) 
typedef jbyte 

(*JRI_GetField_byte_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 
typedef jchar 

(*JRI_GetField_char_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 
typedef j short 

(*JRI_GetField_short_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 
typedef jint 

(*JRIJ3etField_int_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 
typedef jlong 

(*JRI_GetField_long_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 
typedef j float 

(*JRIJ3etField_float_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 
typedef j double 

(*JRI_GetField_double_t) (JRIEnv* env, jref obj, JRIFieldThunk* field); 



/**********************************^ 



typedef void 

(*JRI_SetField_t) (JRIEnv* env, jref obj, JRIFieldThunk* field, jref value); 
typedef void 

(*JRI_SetField_boolean_t). (JRIEnv* env, jref ob j , JRIFieldThunk* field, jbool 
value) ; 

typedef void 

(*JRI_SetField_byte_t) (JRIEnv* env, jref ob j , JRIFieldThunk* field, jbyte 
value) ; 



typedef void 

(*JRI_SetField_char_t) (JRIEnv* env, jref ob j , JRIFieldThunk* field, jchar 
value) ; 



typedef void 

(*JRI_SetField_short_t) (JRIEnv* env, jref ob j , JRIFieldThunk* field, jshort 
value) ; 

typedef void 

(*JRI_SetField_int_t) (JRIEnv* env, jref obj , JRIFieldThunk* field, jint value); 
typedef void 

(*JRI_SetField_long_t) (JRIEnv* env, jref obj, JRIFieldThunk* field, jlong 
value) ; 

typedef void 

(*JRI_SetField_f loat_t) (JRIEnv* env, jref obj, JRIFieldThunk* field, jfloat 
value) ; 

typedef void 

(*JRI_SetField_double_t) (JRIEnv* env, jref obj, JRIFieldThunk* field, jdouble 
value) ; 

/*******************************^ 

/* Calling Public Dynamic Methods of Objects */ 
typedef JRIValue 

(*JRI_CallMethod_t) (JRIEnv* env, jref obj, JRIMethodThunk* method, ...); 
typedef JRIValue 

(*JRI_ApplyMethodV_t) (JRIEnv* env, jref obj, JRIMethodThunk* method, va_list 
args) ; 

typedef JRIValue 

(*JRI_ApplyMethod_t) (JRIEnv* env, jref obj, JRIMethodThunk* method, 

JRIValue* valueArray) ; 

/***********************************^ 

* Class Operations 

*************************************^ 

/* 

** Determines whether the first class is a subclass of the second, or 



** whether it has the second class as one of its interfaces. 
*/ 

typedef jbool . 

<*JRI_IsSubclassOf_t) (JRIEnv* env, jref clazz, jref super) ; 
/*********************************^ 

/* Accessing Public Static Fields of Objects */ 
typedef jref 

(*JRI_GetStaticField_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef jbool 

(*JRI_GetStaticField_boolean_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef jbyte 

(*JRI_GetStaticField_byte_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef jchar 

(*JRIJ3etStaticField_char_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef j short 

(*JRI_GetStaticField_short_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef jint 

( * JRI_GetStaticField_int_t ) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef jlong 

(*JRI_GetStaticField_long_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef j float 

(*JRI_GetStaticField_float_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
typedef j double 

(*JRI_GetStaticField_double_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field); 
/***********************************^ 

typedef void 

(*JRI_SetStaticField_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

jref value) ; 

typedef void 

(*JRI_SetStaticField_boolean_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

jbool value) ; 

typedef void 

(*JRI_SetStaticField_byte_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

jbyte value) ; 

typedef void 

(*JRI_SetStaticField_char_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

jchar value) ; 

typedef void 

(*JRI_SetStaticField_short_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

j short value) ; 



typedef void 

(*JRI_SetStaticField_int_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

jint value) ; 

typedef void 

(*JRI_SetStaticField_long_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

jlong value) ; 

typedef void 

(*JRI_SetStaticField_f loat_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

j float value) ; 

typedef void 

(*JRI_SetStaticField_double_t) (JRIEnv* env, jref clazz, JRIFieldThunk* field, 

j double value) ; 

/***********************^*****^ 

/* Calling Public Static Methods of Objects */ 
typedef JRIValue 

(* JRI_CallStaticMethod_t) (JRIEnv* env, jref clazz, JRIMethodThunk* method, . . 
typedef JRIValue 

(*JRI_ApplyStaticMethodV_t) (JRIEnv* env, jref clazz, JRIMethodThunk* method, 

va_list args) ; 

typedef JRIValue 

(*JRI_ApplyStaticMethod_t) (JRIEnv* env, jref clazz, JRIMethodThunk* method, 

JRIValue* valueArray) ; 

/**************************************^ 

* String Operations 
************************^ 

/* Unicode Interface */ 
typedef jref 

(*JRI_NewString_t) (JRIEnv* env, const jchar* bytes, jsize length); 
typedef jsize 

(*JRI_GetStringLength_t) (JRIEnv* env, jref string) ; 

/* This returns a const jchar* pointer directly into the string's contents: 
typedef const jchar* 

(*JRI_GetStringChars_t) (JRIEnv* env, jref string) ; 

/* Mallocs a C string that must be freed by caller: */ 
typedef jchar* 

(*JRI_CopyString_t) (JRIEnv* env, jref string) ; 
/* UTF Interface */ 
typedef jref 

(*JRI_NewStringUTF_t) (JRIEnv* env, const char* bytes, jsize length); 



typedef jsize 

(*JRI_GetStringUTFLength__t) (JRIEnv* env, jref string) ; 

/* Mallocs a UTF C string that must be freed by caller: */ 
typedef char* 

(*JRI_CopyStringUTF_t) (JRIEnv* env, jref string) ; 

/***********★******************************************************************* 

* Scalar Array Operations 

******************************************************************************/ 

typedef jref 

(* JRI_NewScalarArray_t) (JRIEnv* env, jsize length, const jbyte* bytes); 
typedef jsize 

(*JRI_GetScalarArrayLength_t ) (JRIEnv* env, jref array) ; 
typedef jbyte* 

(*JRI_GetScalarArrayData_t) (JRIEnv* env, jref array) ; 

/******************************************************************************* 

* Object Array Operations 
**************************** 

typedef jref 

(*JRI_NewObjectArray_t) (JRIEnv* env, jsize length, jref elementClass , 

jref initialElement ) ; 

typedef jsize 

(* JRI_GetObjectArrayLength_t) (JRIEnv* env, jref array) ; 
typedef jref 

(*JRI_GetObjectArrayElement_t) (JRIEnv* env, jref array, jsize index); 
typedef void 

(*JRI_SetObjectArrayElement_t ) (JRIEnv* env, jref array, jsize index, 

jref value) ; 

/******************************************************************************* 

* Native Bootstrap 

******************************************************************************/ 
/* 

** This routine is used by the generated stub code to look up field 
** positions and method identifiers for native access and invocation. 
*/ 

typedef void 

(*JRI_RegisterNatives_t) (JRIEnv* env, jref clazz, 

JRINativelnf o* nativelnf oArray) ; 

typedef void 

(* JRI_UnregisterNatives_t) (JRIEnv* env, jref clazz) ; 

/******************************************************************************/ 

struct JRIFieldThunk { 

void* data; 



JRI_GetField_t get; /* cast this to the right accessor type before 
calling */ 

JRI_SetField_t set; /* cast this to the right accessor type before 
calling */ 

}; 



struct JRINativelnterf ace { 

void* 

void* 

void* 

JRI_LoadClass_t 

JRI_FindClass_t 

JRI_Throw_t 

JRI_ThrowNew_t 

JRI__ Except ionOccurred_t 

JRI_ExceptionDescribe_t 

JRI_ExceptionClear_t 

JRI_NewGlobalRef_t 

JRI_DisposeGlobalRef_t 

JRI_GetGlobalRef_t 

JRI_SetGlobalRef_t 

JRI_IsSameOb j ect_t 

JRI_NewObject_t 

JRI_NewObjectA_t 

JRI_NewOb j ectV_t 

JRI_GetObjectClass_t 

JRI_IsInstanceOf_t 

JRI_GetField_t 

JRI_GetField_boolean_t 

JR I_Ge t Fi e ld_by te_t 

JRI_GetField_char_t 

JRI_GetField_short_t 

JR I_Ge t F i e 1 d_i n t _t 

JRI_GetField_long_t 

JRI_GetField_f loat_t 

JRI_GetField_double_t 

JRI_SetField_t 

JRI_SetField_boolean_t 

JRI_SetField_byte_t 

JRI_SetField_char_t 

JRI_SetField_short_t 

JRI_SetField_int_t 

JRI_SetField_long_t 

JRI_SetField_f loat_t 

JRI_SetFiel d_doub 1 e_t 

JRI_CallMethod_t 

JRI_ApplyMethodV_t 

JRI_ApplyMethod_t 

JRI_IsSubclassOf_t 

JRI_GetStaticField_t 

JRI_GetStaticField_boolean_t 

JRI_GetStaticField_byte_t 

JRIj3etStaticField_char_t 

JRI_GetStaticField_short_t 

JRI_GetStaticField_int_t 

JRIj3etStaticField_long_t 

JRI GetStaticField float t 



ReservedO j 

Reservedl ; 

Reserved2 ; 

LoadClass j 

FindClass ; 

Throw; 

ThrowNew; 
Except ionOccurred ; 
Except ionDescribe; 
Except ionClear ; 

NewGlobalRef ; 
DisposeGlobalRef ; 

GetGlobalRef ; 

SetGlobalRef ; 

IsSameObject; 

NewObject ; 
NewObj ectA; 
NewObjectV; 
GetObjectClass; 

IsInstanceOf ; 

GetField; 
GetField_boolean; 

GetField_byte; 

GetField_char ; 
GetField_short ; 

GetField_int ; 

GetField_long; 
GetField_f loat ; 
GetField_double ; 

SetField; 
SetField_boolean; 

SetField_byte; 

SetField_char ; 
SetField_short ; 

SetField_int ; 

SetField_ long; 
SetField_f loat; 
SetField_double ; 
CallMethod; 

ApplyMethodV; 
ApplyMethod; 

IsSubclassOf ; 
GetStaticField; 
GetStat icField_boolean; 

GetStat icField_byte ; 
GetStat icField_char ; 
GetStaticField_short; 
GetStat icField_int ; 
GetStat icField_long; 
GetStat icField_f loat; 



JRI 


npf^fat" "i rP"i pi H double t" 




JRI 


SetStaticField t 


SetStatirField * 


JRI 


Set S t a t* i i e 1 d hnolean t 


SetStat" i rP*i el d boolean* 


JRI 


SetStaticField bvte t 


Set St at i rP-i el d bvte* 


JRI 


SetSta t "i rFi el d rhar t 


Set" St a 1 1 rP"i el d rhar • 


JRI 


SetStaticField short t 


SetStaticField short; 


JRI 


SetStaticField int t 


SetStaticField int; 


JRI 


Set St at i rFi el d lnna t 


Set S t a t "I rF "i e 1 d 1 ona * 


JRI 


SetStaticField float t 


SetStaticField float* 


JRI 


SetStaticField double t 


SetStaticField double * 


JRI 


CallStaticMethod t 


CallStaticMethod * 


JRI 


ApplyStaticMethodV t 


AtddI vStat i cMet hodV • 


JRI 


ApplyStaticMethod t 


ApplyStaticMethod; 


JRI 


NewString t 


NewString ; 


JRl" 


GetStringLength t 


GetStringLength ; 


JRI ~ 


GetStringChars t 


GetStringChars ; 


JRl" 


CopyString t 


CoovStrina ; 


JRl" 


NewStringUTF t 


NewStringUTF ,* 


JRI 


GetStringUTFLength t 


GetStrinaUTFLenath * 


JRl" 


CopyStringUTF t 


Copy S t r i ngUTF ; 


JRI 


NewScalarArray t 


NewScalarArray ; 


JRI 


Get Sea 1 arATravLenat h t 


GetSnal aTATTavTiPnafh * 


JRI_ 


GetScalarArrayData t 


GetScalarArrayData ; 


JRI^ 


_NewOb j ect Array_t 


NewOb j ectArray ; 


JRl" 


_GetOb j ectArrayLength_t 


GetObjectArrayLength; 


JRI^ 


_GetOb j ectArrayElement_t 


GetOb j ectArrayElement ; 


JRI^ 


_SetOb j ectArrayElement_t 


SetOb j ectArrayElement ; 


JRI_ 


_RegisterNatives_t 


RegisterNatives ; 


JRI_ 


_UnregisterNatives_t 


UnregisterNatives ; 



}; 

/* 

** LoadClass borrows the buffer that you hand to it, so it will Copy it 
** if it needs to. This is useful when defining a class from static class 
** data. 
*/ 

#define JRI_LoadClass (env, buf # bufLen) \ 
( ( (* (env) ) ->LoadClass) {env, buf, bufLen)) 

/* 

** Returns a jref to a class object from a fully qualified name (package 
** names delimited by '/' and the class name). If the name begins with 
** ' [* (the array signature character), an array class is returned. 
*/ 

#define JRI_FindClass (env, name) \ 
( ( (* (env) ) ->FindClass) (env, name) ) 

/* Working with Exceptions */ 

#define JRI_Throw (env, ob j ) \ 

( ( (* (env) ) ->Throw) (env, obj ) ) 

#define JRI_ThrowNew (env, clazz, message) \ 
( ( (* (env) ) ->ThrowNew) (env, clazz, message) ) 



#define JRI_ExceptionOccurred (env) \ 
( ( (* (env) ) ->ExceptionOccurred) (env) ) 

#define JRI_ExceptionDescribe (env) \ 
( ( (* (env) ) ->ExceptionDescribe) (env) ) 

#define JRI_ExceptionClear (env) \ 
( ( (* (env) ) ->ExceptionClear) (env) ) 



* References 

********************************^ 

#define JRI_NewGlobalRef (env, ref) \ 
( ( (* (env) ) ->NewGlobalRef ) (env, ref) ) 

#define JRI_DisposeGlobalRef (env, ref) \ 

( ( (* (env) ) ->DisposeGlobalRef ) (env, ref) ) 

#define JRI_GetGlobalRef (env, globalRef) \ 
( ( (* (env) ) ->GetGlobalRef ) (env, globalRef) ) 

tfdefine JRI_SetGlobalRef (env, globalRef, value) \ 

( ( (* (env) ) ->SetGlobalRef ) (env, globalRef, value) ) 

#define JRI_IsSameObject (env, rl, r2) \ 
( ( (* (env) ) ->IsSameObject) (env, rl, r2) ) 

/***********************************^ 

* Object Operations 



#define JRI_NewObjectM (env) ( (* (env) ) ->NewObject) 

#define JRI_NewObj ect JRI_NewObjectM (env) /* hard coded •env 1 

*/ 

#define JRI_NewOb j ect A (env, clazz, method, args) \ 

( ( (* (env) ) ->NewObjectA) (env, clazz, method, args)) 

#define JRI_NewObjectV (env, clazz, method, args) \ 
( ( (* (env) ) ->NewObjectV) (env, clazz, method, args)) 

#define JRI_GetObjectClass (env, ob j ) \ 
( ( (* (env) ) ->GetObjectClass) (env, ob j ) ) 

#define JRI_IsInstanceOf (env, ob j , clazz) \ 

( ( (* (env) ) ->IsInstanceOf ) (env, obj , clazz) ) 

/********************************************^ 
/* Accessing Public Fields of Objects */ 

#define JRI_GetField (env, obj, fieldThunk) \ 

( ( (JRI_GetField_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 

#define JRI_GetField_boolean (env, obj, fieldThunk) \ 

( ( (JRI_GetField_boolean_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 



#define JRI_GetField_byte (env, ob j , fieldThunk) \ 

{ ( (JRI_GetFieldJbyte_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 

#define JRI_GetField_char (env, obj, fieldThunk) \ 

{ ( (JRI_GetField_char_t) ( fieldThunk) ->get) (env, obj, fieldThunk)) 

tfdefine JRI_GetField_short (env, obj, fieldThunk) \ 

( ( (JRI_GetField_short_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 

#define JRI_GetField_int (env, obj, fieldThunk) \ 

( ( (JRI_GetField_int_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 

#define JRI_GetField_long (env, obj, fieldThunk) \ 

( ( (JRI_GetField_long_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 

#def ine JRI_GetField_f loat (env, obj, fieldThunk) \ 

( ( (JRI_GetField_f loat_t) (fieldThunk) ->get) (env, obj , fieldThunk) ) 

#define JRI_GetField_double (env, obj, fieldThunk) \ 

( ( (JRI_GetField_double_t) (fieldThunk) ->get) (env, obj, fieldThunk)) 

/***********************************^ 

#define JRI_SetField (env, obj, fieldThunk, value) \ 

( ( (JRI_SetField_t) (fieldThunk) ->set) (env, obj , fieldThunk, value) ) 

#define JRI_SetField_boolean (env, obj, fieldThunk, value) \ 

( ( (JRI_SetField_boolean_t) (fieldThunk) ->set) (env, obj , fieldThunk, value) ) 

#define JRI_SetField_byte (env, obj, fieldThunk, value) \ 

(( (JRI_SetField_byte_t) (fieldThunk) ->set) (env, obj, fieldThunk, value)) 

#define JRI_SetField_char (env, obj, fieldThunk, value) \ 

( ( ( JRI_SetField_char_t) (fieldThunk) ->set) (env, obj, fieldThunk, value)) 

#define JRI_SetField_short (env, obj, fieldThunk, value) \ 

( ( (JRI__SetField_short_t) (fieldThunk) ->set) (env, obj , fieldThunk, value) ) 

#define JRI_SetField_int (env, obj, fieldThunk, value) \ 

( ( (JRI_SetField_int_t) (fieldThunk) ->set) (env, obj , fieldThunk, value) ) 

#define JRI_SetField_long (env, obj, fieldThunk, value) \ 

( ( (JRI_SetField_long_t) (fieldThunk) ->set) (env, obj , fieldThunk, value) ) 

#define JRI_SetField_f loat (env, obj, fieldThunk, value) \ 

(( (JRI_SetField_float_t) (fieldThunk) ->set) (env, obj, fieldThunk, value)) 

#define JRI_SetField_double (env, obj, fieldThunk, value) \ 

( ( ( JRI_SetField_double_t ) (fieldThunk) ->set) (env, obj , fieldThunk, value) ) 

/**********************************^ 

/* Calling Public Dynamic Methods of Objects */ 

#define JRI_CallMethodM (env) ( (* (env) ) ->CallMethod) 



ttdefine JRI_CallMethod jRl_CallMethodM (env) /* hard 

coded 'env* */ 

#define JRI_ApplyMethodV (env, ob j , methodThunk, args) \ 

( ( (* (env) ) ->ApplyMethodV) (env, obj , methodThunk, args) ) 

ttdefine JRI_ApplyMethod (env, obj, methodThunk, args) \ 

( ( (* (env) ) ->ApplyMethod) (env, obj , methodThunk, args) ) 

/***★****★★★* **********************************^ 

* Class Operations 

********************************************** 
/* 

** Determines whether the first class is a subclass of the second, or 

** whether it has the second class as one of its interfaces. 

*/ 

#define JRI_IsSubclassOf (env, clazz, super) \ 

( ( (* (env) ) ->IsSubclassOf ) (env, clazz, super) ) 

/****************★**** *********************************************************/ 
/* Accessing Public Static Fields of Objects */ 

#define JRI_GetStaticField (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_boolean (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_boolean_t) (fieldThunk) ->get) (env, clazz, 
fieldThunk) ) 

#define JRI_GetStaticField_byte (env, clazz, fieldThunk) \ 

( ( ( JRI_GetStaticField_byte_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_char (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_char_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_short (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_short_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_int (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_int_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_long (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_long_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_f loat (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_f loat_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

#define JRI_GetStaticField_double (env, clazz, fieldThunk) \ 

( ( (JRI_GetStaticField_double_t) (fieldThunk) ->get) (env, clazz, fieldThunk) ) 

/*****************************************^ 

#define JRI_SetStaticField (env, clazz, fieldThunk, value) \ 

( ( ( JRI SetStaticField_t) (fieldThunk) ->set) (env, clazz, fieldThunk, value)) 



ttdefine JRI_SetStaticField_boolean (env, clazz, fieldThunk, value) \ 

( { (JRI_SetStaticField_boolean_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 

#define JRI_SetStaticField_byte (env, clazz, fieldThunk, value) \ 

( { (JRI_SetStaticField_byte_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 

#define JRI_SetStaticField_char (env, clazz, fieldThunk, value) \ 

( ( (JRI_SetStaticField_char_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 

#define JRI_SetStaticField_short (env, clazz, fieldThunk, value) \ 

( ( (JRI_SetStaticField_short_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 

#define JRI_SetStaticField_int (env, clazz, fieldThunk, value) \ 

( ( ( JRI_SetStaticField_int_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 

tfdefine JRI_SetStaticField_long (env, clazz, fieldThunk, value) \ 

( ( (JRI_SetStaticField_long_t) (fieldThunk) - >set) (env, clazz, fieldThunk, 
value) ) 

#define JRI_SetStaticField_f loat (env, clazz, fieldThunk, value) \ 

( ( (JRI_SetStaticField_f loat_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 

#define JRI_SetStaticField_double (env, clazz, fieldThunk, value) \ 

( ( ( JRI_SetStaticField_double_t) (fieldThunk) ->set) (env, clazz, fieldThunk, 
value) ) 



/* Calling Public Static Methods of Objects */ 



#def ine JRI_CallStaticMethodM (env) 
#define JRI_CallStaticMethod 
hard coded 'env' */ 



( (* (env) ) ->CallStaticMethod) 
JRI CallStaticMethodM(env) /* 



#define JRI_ApplyStaticMethodV (env, clazz, method, args) \ 
( ( (* (env) ) ->ApplyStaticMethodV) (env, clazz, method, args) ) 

#define JRI_ApplyStaticMethod (env, clazz, method, args) \ 
( ( (* (env) ) ->ApplyStaticMethod) (env, clazz, method, args)) 

/a****************************************** 

* String Operations 

*********************************************^ 

/* Unicode Interface */ 



#define JRI_NewSt ring (env, bytes, length) \ 

( ( (* (env) ) ->NewString) (env, bytes, length)) 



#define JRI_GetStringLength (env, string) \ 

( ( (* (env) ) ->GetStringLength) (env, string) ) 



/* This returns a const jchar* pointer directly into the string's contents: */ 
#define JRI_GetStringChars (env, string) \ 
( ( (* (env) ) ->GetStringChars) (env, string) ) 

/* Mallocs a C string that must be freed by caller: */ 
#define JRI_CopySt ring (env, string) \ 
( ( (* (env) ) ->CopyString) (env, string) ) 

/* UTF Interface */ 

#define JRI_NewStringUTF (env, bytes, length) \ 
( ( (* (env) ) ->NewStringUTF) (env, bytes, length) ) 

#define JRI_GetStringUTFLength (env, string) \ 
( ( (* (env) ) ->GetStringUTFLength) (env, string) ) 

/* Mallocs a UTF C string that must be freed by caller: */ 
#define JRI_CopyStringUTF (env, string) \ 

( ( (* (env) ) ->CopyStringUTF) (env, string) ) 

/***************************^ 

* Scalar Array Operations 
***************************^ 

#define JRI__NewScalar Array (env, length, bytes) \ 
( ( (* (env) ) ->NewScalarArray) (env, length, bytes) ) 

#define JRI_GetScalarArrayLength (env, array) \ 
( ( (* (env) ) ->GetScalarArrayLength) (env, array) ) 

#define JRI_GetScalarArrayData (env, array) \ 
( ( (* (env) ) ->GetScalarArrayData) (env, array) ) 

* Specific Scalar Array Types 

#define JRI_NewBooleanArray (env, length, initialValues) \ 
JRI_NewScalar Array (env, length, (jbyte*) (initialValues)) 

#define JRI_GetBooleanArrayLength (env, array) \ 
JRI_GetScalarArrayLength (env, array) 

#define JRI_GetBooleanArrayData (env, array) \ 
( { jbool*) JRI_GetScalarArrayData (env, array) ) 

ftdefine JRI_NewByteArray (env, length, initialValues) \ 

JRI_NewScalarArray (env, length, (jbyte*) (initialValues)) 

#define JRI_GetByteArrayLength (env, array) \ 
JRI_GetScalarArrayLength (env, array) 

ttdefine JRI_GetByteArrayData (env, array) \ 
JRI_GetScalarArrayData (env, array) 

#define JRI_NewChar Array (env, length, initialValues) \ 

JRI_NewScalarArray (env, ((length) * sizeof ( j char) ) , 
(jbyte*) (initialValues)) 

#define JRI_Ge t Char ArrayLength (env, array) \ 
JRI_GetScalarArrayLength (env, array) 



#define JRI_GetCharArrayData (env, array) \ 
( ( j char*) JRI_GetScalarArrayData (env, array) ) 

#define JRI_NewShort Array (env, ' length, initialValues) \ 

JRI_NewScalarArray (env, ((length) * sizeof (j short )) , 
(jbyte*) (initialValues)) 

#define JRI_Get Short ArrayLength (env, array) \ 

JRI_GetScalarArrayLength (env, array) 
#define JRI_GetShortArrayData (env, array) \ 
( ( j short*) JRI_GetScalarArrayData (env, array) ) 

#define JRI_NewInt Array (env, length, initialValues) \ 
JRI_NewScalarArray (env, ( (length) " * sizeof (jint) ) , 
(jbyte*) (initialValues)) 

#define JRI_GetInt ArrayLength (env, array) \ 

JRI_GetScalarArrayLength (env, array) 
#define JRI_GetIntArrayData (env, array) \ 

( (jint*) JRI_GetScalarArrayData (env, array) ) 

#define JRI_NewLongArray (env, length, initialValues) \ 

JRI_NewScalar Array (env, ((length) * sizeof (j long) ) , 
(jbyte*) (initialValues)) 

#define JRI_GetLongAr ray Length (env, array) \ 

JRI_GetScalarArrayLength (env, array) 
#define JRI_GetLongArrayData (env, array) \ 

( ( j long*) JRI_GetScalarArrayData (env, array) ) 

ttdefine JRI_NewFloat Array (env, length, initialValues) \ 

JRI_NewScalarArray (env, ((length) * sizeof (j float )) , 
(jbyte*) (initialValues)) 

#define JRI_GetFloatArrayLength (env, array) \ 

JRI_GetScalarArrayLength (env, array) 
#define JRI_GetFloatArrayData (env, array) \ 

( ( jf loat*) JRI_GetScalarArrayData (env, array) ) 

#define JRI_NewDoubleArray (env, length, initialValues) \ 

JRI_NewScalarArray (env, ((length) * sizeof (jdouble) ) , 
(jbyte*) (initialValues)) 

#define JRI_GetDoubleArrayLength (env, array) \ 

JRI_GetScalarArrayLength (env, array) 
#define JRI_GetDoubleArrayData (env, array) \ 

( (jdouble*) JRI_GetScalarArrayData (env, array) ) 

/************************************^ 

* Object Array Operations 
************************************^ 

#define JRI_NewObject Array (env, length, elementClass , initialElement ) 

( ( (* (env) ) ->NewObjectArray) (env, length, elementClass, initialElement) ) 

ttdefine JRIJSetObject ArrayLength (env, array) \ 
( ( (* (env) ) ->GetObjectArrayLength) (env, array) ) 

#define JRI_GetObjectArrayElement (env, array, index) \ 

( ( (* (env) ) ->GetObjectArrayElement) (env, array, index) ) 

#define JRI_SetObjectArrayElement (env, array, index, value) \ 



( ( (* (env) ) ->SetObjectArrayElement) (env, array, index, value) ) 



/***************************************************^ 

* Native Bootstrap 

**********************************************^^ 
/* 

** This routine is used by the generated stub code to look up field 
** positions and method identifiers for native access and invocation. 
*/ 

#define JRI_RegisterNatives (env, clazz, nativelnf oArray) \ 
( ( (* (env) ) ->RegisterNatives) (env, clazz, nativelnf oArray) ) 

#define JRI_UnregisterNatives (env, clazz) \ 
( ( (* (env) ) ->UnregisterNatives) (env, clazz) ) 

/******************************* ********************* *************************** 

* Glue Routines These are used to auto-initialize fields 
*********************************************************************** 

JRIJ?UBLIC_API ( jref ) 

JRI_GetFieldByName ( JRIEnv* env, jref obj , JRIFieldThunk* field); 
JRI_PUBLIC_API ( jbool) 

JRI_GetFieldByName_boolean (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API ( j byte ) 

JRI_GetFieldByName_byte (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API ( jchar) 

JRI_GetFieldByName_char (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (j short) 

JRI_GetFieldByName_short (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jint) 

JRI_GetFieldByName_int (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jlong) 

JRI_GetFieldByName_long (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jf loat) 

JRI_GetFieldByName_f loat (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (j double) 

JRI_GetFieldByName_double (JRIEnv* env, jref obj, JRIFieldThunk* field); 
/******** * * ********************************************************************/ 

JRI_PUBLIC_API (void) 

JRI_SetFieldByName (JRIEnv* env, jref obj, JRIFieldThunk* field, jref value); 
JRI_PUBLIC_API (void) 

JRI_SetFieldByName_boolean (JRIEnv* env, jref obj, JRIFieldThunk* field, jbool 
value) ; 

JRI PUBLIC API (void) 



JRI_SetFieldByName_byte (JRIEnv* env, jref ob j , JRIFieldThunk* field, jbyte 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetFieldByName_char (JRIEnv* env, jref ob j , JRIFieldThunk* field, jchar 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetFieldByName_short (JRIEnv* env, jref ob j , JRIFieldThunk* field, j short 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetFieldByName_int (JRIEnv* env, jref obj , JRIFieldThunk* field, jint value); 
JRI_PUBLIC_API (void) 

JRI_SetFieldByName_long (JRIEnv* env, jref obj, JRIFieldThunk* field, jlong 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetFieldByName_f loat (JRIEnv* env, jref obj, JRIFieldThunk* field, jfloat 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetFieldByName_double (JRIEnv* env, jref obj, JRIFieldThunk* field, jdouble 
value) ; 

/***************★****** *************^ 

JRI_PUBLIC_API (jref) 

JRI_GetStaticFieldByName (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API ( jbool) 

JRI_GetStaticFieldByName_boolean (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jbyte) 

JRI_GetStaticFieldByName_byte (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jchar) 

JRI_GetStaticFieldByName_char (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API ( j short ) 

JRI_GetStaticFieldByName_short (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API ( j int ) 

JRI_GetStaticFieldByName_int (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jlong) 

JRI_GetStaticFieldByName_long (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jfloat) 

JRI_GetStaticFieldByName_f loat (JRIEnv* env, jref obj, JRIFieldThunk* field); 
JRI_PUBLIC_API (jdouble) 

JRI_GetStaticFieldByName_double (JRIEnv* env, jref obj, JRIFieldThunk* field); 



JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName ( JRIEnv* env, jref ob j , JRIFieldThunk* field, jref 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_boolean(JRIEnv* env, jref ob j , JRIFieldThunk* field, 
jbool value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_byte (JRIEnv* env, jref ob j , JRIFieldThunk* field, jbyte 
value) / 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_char (JRIEnv* env, jref ob j , JRIFieldThunk* field, jchar 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_short (JRIEnv* env, jref obj , JRIFieldThunk* field, 
j short value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_int (JRIEnv* env, jref obj, JRIFieldThunk* field, jint 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_long (JRIEnv* env, jref obj, JRIFieldThunk* field, jlong 
value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_f loat (JRIEnv* env, jref obj, JRIFieldThunk* field, 
j float value) ; 

JRI_PUBLIC_API (void) 

JRI_SetStaticFieldByName_double (JRIEnv* env, jref obj, JRIFieldThunk* field, 
j double value) ; 

/*****************************^ 

#ifdef cplusplus 

} 

#endif 

#endif /* JRI_H */ 



/* Mode: C; tab- width: 4; -*- */ 

/********************* **************************** **************************** 

* Java Runtime Interface - Machine Dependent Types 

* Copyright (c) 1996 Netscape Communications Corporation. All rights reserved 
************************************************* **************************** 

#ifndef JRI_MD_H 
#define JRI_MD_H 

#ifdef cplusplus 

extern M C" { 
#endif 

/***************************************************************************** 

/* DLL Entry modifiers. . . */ 



#if defined <XP_PC) 

#define EXPORTED 

#if defined (_WIN32) 

#define JRI_PUBLIC_API (ResultType) 

#define JRI_CALLBACK 

#else /* !_WIN32 */ 

#define JRI_PUBLIC_API (ResultType) 

#define JRI_CALLBACK 

#endif 

#else /* !XP_PC */ 

#define JRI_PUBLIC_API (ResultType) 
#define JR I_CALLB ACK 
#endif /* XP PC */ 



extern declspec (dllexport) 

_declspec (dllexport) ResultType 



ResultType _cdecl _export _loadds 
loadds 



ResultType 



#ifndef FAR 
#define FAR 
#endif 



/* for non-Winl6 */ 



/***************************************************************************** 

/* Java Scalar Types */ 

typedef unsigned char jbool; 
typedef char jbyte; 
typedef short jchar; 
typedef short j short; 

#ifdef IS_64 /* XXX ok for alpha, but not right on all 64-bit architectures */ 
typedef unsigned int juint; 
typedef int jint; 
#else ■ 

typedef unsigned long juint; 
typedef long jint; 
#endif 

typedef float j float; 

typedef double j double; 



typedef juint 



jsize; 



/***************************************************************************** 

* jlong : long long (64 -bit signed integer type) support. 



** Bit masking macros. (n must be <= 31 to be portable) 
*/ 



#def ine 


JRI_BIT(n) 




( ( juint 


)1 « (n)) 


#def ine 


JRI_BITMASK(n) 


(JRI_ 


BIT (n) - 


1) 


#ifdef HAVE_LONG_LONG 








ttifndef 


_WIN32 








typedef 


long long 


jlong; 




typedef 


unsigned long long 


julong; 




iide f ine 

TT *A w Jt 11 w 




0x7fffffffffffffffLL 


^dc f ine 


ilona MTNTMT 


Ox8000000000000000LL 


iide f i 

TT *w4 w ±~ ^ 11 w 


i 1 on a 7.P1PO 




0x0 LL 




#else 










typede f 




jlong; 








julong; 




iiHe f "ine 


ilona MAXTWT 


0x7fffffffffffffffi64 


#def ine 


jlong_MININT 


0x8 000000000000000i64 


#def ine 


jlong_ZERO 




0x0i64 




#endif 










#def ine 


jlong_IS_ZERO(a) 


( (a) 


= = 0) 




iide "f ine 


ilona "RfW a 


( (a) 


== (b)) 




#def ine 

TT -Liiv 


i lona NE (a b) 


( (a) 


!= (b)) 




#def ine 


j long_GE_ZERO (a) 


((a) 


>= 0) 




#def ine 


jlong_CMP(a, op, b) 


( (a) 


op (b)) 




lide*? "ine 

■fT -^HC 


i 1 nnn AT\Tn ( y a b \ 


( (r) 


= (a) & 


(b)) 


#def ine 


ilona OR It a In) 


( (r) 


= (a) | 


(b)) 


#def ine 


jlong_XOR(r, a, b) 


( (r) 


= (a) A 


(b)) 


#def ine 


jlong_0R2(r / a) 


( (r) 


= (r) | 


(a)) 


iidef ine 
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( (r) 


= -(a)) 




iide fine 


i 1 ona NEO ( y a ) 


( (r) 


= -(a)) 




#def ine 


jlong ADD(r, a, b) 


(<r) 


= (a) + 


(b)) 


#def ine 


jlong_SUB(r, a, b) 


(<r) 


= (a) - 


(b)) 


#def ine 


jlong_MUL(r, a, b) 


((r)" 


= (a) * 


(b)) 


#def ine 


jlong_DIV(r, a, b) 


( (r) 


= (a) / 


(b)) 


#def ine 


jlong_MOD(r, a, b) 


( (r) 


= (a) % 


(b)) 


#def ine 


jlong_SHL(r, a, b) 


( (r) 


= (a) « 


(b)) 


#def ine 


jlong_SHR(r, a, b) 


( (r) 


= (a) » 


(b)) 


#def ine 


jlong_USHR(r, a, b) 


( (r) 


= (julong) (a) >> (b) ) 


#def ine 


jlong_ISHL(r, a, b) 


( (r). 


= ((jlong) (a)) « (b) ) 


#def ine 


jlong_L2I(i, 1) 


( (i) 


= (int) (1) ) 


#def ine 


jlong_L2UI (ui, 1) 


((ui) 


= (unsigned int) (1)) 


#def ine 


jlong_L2F(f, 1) 


((f) 


= (1) ) 




#def ine 


jlong_L2D(d, 1) 


( (d) 


= (1) ) 





#define j long_I2L (1 , i) ((1) = (i) ) 

#define j long_UI2L (1 , ui) .((1) = (ui)) 

#define j long_F2L (1 , f) ((1) = (f)) 

#define jlong_D2L(l, d) ((1) = (d) ) 

#define jlongJJDIVMOD (qp, rp, a, b) \ 
(Mqp) = ((julong) (a) / (b) ) , \ 
* (rp) = ( (julong) (a) % (b) ) ) 

ttelse /* ! HAVE_LONG_LONG */ 

typedef struct { 

#ifdef I S_L I TTLE_END I AN 

juint lo, hi; 
#else 

juint hi, lo; 
#endif 
} jlong; 

typedef jlong julong; 

extern jlong jlong_MAXINT, j long_MININT, jlong_ZERO; 

#define j long_IS_ZERO (a) (((a) .hi == 0) && ((a).lo == 0)) 

#define jlong_EQ(a, b) (((a). hi == (b) .hi) ((a).lo == (b).lo)) 

#define jlong_NE(a, b) (((a) .hi ! = (b) .hi) || ((a).lo != (b).lo)) 

#define j long_GE_ZERO (a) (((a) .hi >> 31) 0) 

/* 

* NB: jlong_CMP and jlong_UCMP work only for strict relationals (<, >) . 
*/ 

ttdefine jlong_CMP(a, op, b) ( ( (int32 ) (a) . hi op (int32) (b) -hi) || 

(-((a). hi == (b).hi) && ((a).lo op (b).lo))) 

#define j long_UCMP (a, op, b) (((a) .hi op (b) .hi) || 

(((a). hi == (b).hi) ((a).lo op (b) . loj ) ) 



#def ine 


jlong_AND (r, 


a, 


b) 


( (r) 


.lo 


= (a) 


.lo 


& (b) 


.lo, 








(r) 


.hi = 


(a) 


hi & 


(b) 


.hi) 




#def ine 


j long_OR (r , 


a, 


b) 


( (r) 


.lo 


= (a) 


.lo 


| (b) 


.lo, 








(r) 


.hi = 


(a) 


hi | 


(b) 


.hi) 




#def ine 


jlong_X0R(r, 


a, 


b) 


( (r) 


.lo 


= (a) 


.lo 


* (b) 


.lo, 








(r) 


.hi = 


(a) 


hi A 


(b) 


.hi) 




#def ine 


j long_0R2 (r , 


a) 




( (r) 


.lo 


= (r) 


.lo 


| (a) 


.lo, 








(r) 


.hi = 


(r) 


hi | 


(a) 


.hi) 




#def ine 


jlong_N0T(r, 


a) 




< (r) 


.lo 


= -(a) .lo, 





\ 



(r) .hi = -(a) .hi) 



#define jlong_NEG(r, a) ((r).lo = - (int32) (a) . lo, 

(r).hi = - (int32) (a) .hi - ((r).lo != 0)) 
ttdefine jlong_ADD(r, a, b) { 

jlong __a, _b; 

_a = a; _b = b; 

(r) .lo = _a.lo + _b.lo; 

(r) .hi = _a.hi + _b.hi + ((r).lo < _b.lo); 

} 



#define jlong_SUB(r, a, b) { \ 

jlong _a, _b; \ 

_a = a; __b = b; \ 

(r).lo = __a.lo - _b.lo; \ 

(r) .hi = _a.hi - _b.hi - (_a.lo < b.lo); \ 

} * \ 

/* 

* Multiply 64 -bit operands a and b to get 64 -bit result r. 

* First multiply the low 32 bits of a and b to get a 64-bit result in r. 

* Then add the outer and inner products to r.hi. 
*/ 

#define jlong_MUL(r, a, b) { \ 
jlong _a, _b; \ 
_a = a; _b = b; \ 
jlong_MUL32 (r, _a.lo, _b.lo); \ 
(r) .hi += _a.hi * _b.lo + _a.lo * _b.hi; \ 

/* XXX _jlong_lol6 (a) = ((a) << 16 >> 16) is better on some archs (not on mips) 
*/ 

#def ine _jlong_lol6 (a) ((a) & JRI_BITMASK (16) ) 

#define _j long_hil6 (a) ((a) >> 16) 

/* 

* Multiply 32 -bit operands a and b to get 64-bit result r. 

* Use polynomial expansion based on primitive field element (1 << 16) . 
*/ 

ttdefine j long_MUL32 (r , a, b) { \ 
juint _al, _a0, _bl, JbO, _y0, _yl, _y2 , _y3 ; \ 
_al = _jlong_hil6 (a) , _a0 = _j long_lol6 (a) ; \ 
__bl = _jlong_hil6 (b) , JbO = _j long__lol6 (b) ; \ 
_y0 = _a0 * _b0 



_yl = _a0 * _bl 
_y2 = _al * _b0 
_y3 = _al * _bl 



_yl += _jlong_hil6 (_y0) ; /* can't carry */ \ 

_yl += _y2; /* might carry */ \ 

if (_yl < _y2) __y3 += 1 << 16; /* propagate */ \ 

(r).lo = (_jlong_lol6 (_yl) << 16) + _j long_lol6 (_y0 ) ; \ 

(r) .hi = _y3 + _j long_hil6 (_yl ) ; \ 



/* 

* Divide 64 -bit unsigned operand a by 64 -bit unsigned operand b, setting *qp 

* to the 64 -bit unsigned quotient, and *rp to the 64 -bit unsigned remainder. 

* Minimize effort if one of qp and rp is null. 
*/ 

#define j longJJDIVMOD (qp, rp, a, b) j long_udivmod (qp , rp, a, b) 
extern JRI_PUBLIC_API (void) 

jlong_udivmod ( julong *qp, julong *rp, julong a, julong b) ; 

#define j long_DIV (r , a, b) { \ 
jlong _a, _b; \ 
juint _negative = (int32) (a) .hi < 0; \ 
if (^negative) { \ 



} 



jlong_NEG(_a, a); \ 
} else { \ 
_a = a; \ 

} \ 
if ( (int32) (b) .hi < 0) { \ 
_negative 1; \ 
jlong_NEG(_b, b) ; \ 
} else { \ 
_b = b; \ 

} \ 

jlong_UDIVMOD(&(r) , 0, _a, Jb) ; \ 
if (_negative) \ 
jlong_NEG(r, r) \ 



#define jlong_MOD(r, a, b) { \ 

jlong _a, _b; \ 

juint _negative = (int32) (a) .hi < 0; \ 

if (^negative) { \ 

jlong_NEG (_a, a); \ 

} else { \ 

_a = a; \ 

} \ 
if ( (int32) (b) .hi < 0) { \ 

jlong_NEG(_b / b) ; \ 
} else { \ 

_b = b; \ 

} \ 
jlong_UDIVMOD(0, &(r), _a, _b) ; \ 
if (^negative) \ 
jlong_NEG(r, r) ; \ 

} 

/* 

* NB: b is a juint, not jlong or julong, for the shift ops. 
*/ 

#define jlong_SHL(r, a, b) { \ 
if (b) { \ 
jlong _a; \ 
_a = a; \ 
if ((b) < 32) { \ 
(r) .lo = _a.lo << (b) ; \ 
(r).hi = (_a.hi << (b) ) | (_a.lo » (32 -(b))); \ 
} else { \ 
(r) .lo = 0; \ 
(r) .hi = _a.lo << ((b) & 31); \ 

} \ 
} else { \ 

(r) = (a); \ 
} \ 

} 

/* a is an int32, b is int32, r is jlong */ 

#define j long_ISHL (r , a, b) { \ 
if (b) { \ 
jlong _a; \ 
_a. lo = (a) ; \ 



} 



_a.hi = 0; \ 

if ((b) < 32) { \ 

(r) .lo = (a) << (b) ; \ 

(r) .hi = ( (a) >> (32 - (b) ) ) ; \ 

} else { \ 

(r) .lo =0; \ 

(r) .hi = (a) « ( (b) & 31) ; \ 

} \ 

} else { \ 

(r) .lo = (a) ; \ 

(r) .hi =0; \ 

} \ 



#define jlong_SHR(r, a, b) { \ 

if (b) { \ 

jlong _a; \ 

_a = a; \ 

if ((b) < 32) { \ 

(r).lo = (_a.hi << (32 - (b) ) ) | (_a.lo >> (b) ) ; \ 

(r).hi = (int32)_a.hi >> (b) ; \ 

} else { \ 

(r).lo = (int32)_a.hi >> ((b) & 31); \ 

(r) .hi = (int32)_a.hi >> 31; \ 

} \ 
} else { \ 

(r) = (a) ; \ 
} \ 

} 

#define j long_USHR (r , a, b) { \ 
if (b) { \ 
jlong _a; \ 

_a = a; \ 
if ((b) < 32) { \ 
(r).lo = (_a.hi << (32 - (b) ) ) | (_a.lo >> (b) ) ; \ 
(r) .hi = _a.hi >> (b) ; \ 
} else { \ 
(r).lo = _a.hi » ((b) & 31); \ 
(r) .hi = 0; \ 

} \ 
} else { \ 
(r) = (a) ; \ 

} \ 

} 

#define jlong_L2I(i, 1) ( (i) = (l).lo) 

#define j long_L2UI (ui , 1) ( (ui) = (1) . lo) 

#define j long_L2F (f , 1) { double _d; j long_L2D (_d, 1.); (f) = (float) _d; } 

#define jlong_L2D(d, 1) { \ 
int32 _negative; \ 
jlong _absval; \ 

\ 

_negative = (1) .hi >> 31; \ 
if (^negative) { \ 
jlong_NEG (_absval, 1); \ 



} else { 

_absval = 1; 

} 

(d) = (double) _absval. hi * 4 . 294967296e9 + _absval.lo; 
if (^negative) 
(d) = -(d); 

} 

#define jlong_I2L(l # i) 
#define j long_UI2L (1 , ui) 
#define j long_F2L (1 , f) 

#define j long_D2L (1 , d) { 
int ^negative; 
double _absval, _d_hi; 
jlong _lo_d; 

_negative = { (d) < 0) ; 
_absval = _negative ? -(d) : (d) ; 

(1) .hi = (juint) (_absval / 4 . 294967296e9) ; 
(1) .lo = 0; 
j long_L2D (_d_hi , 1 ) ; 
_absval - = _d_hi; 
_lo_d.hi = 0; 
if (_absval < 0) { 

_lo_d.lo = (juint) -_absval; 

jlong_SUB(l, 1, _lo_d) ; 
} else { 

_lo_d.lo = (juint) _absval; 

j long_ADD ( 1 , 1 , _lo_d ) ; 

} 

if (_negative) 
jlongJSEGd, 1) ; 

} 

# end if /* ! HAVE__LONG_LONG */ 
/* 

** JDK Stuff -- This stuff is still needed while we're using the JDK 

** dynamic linking strategy to call native methods. 

*/ 

typedef union JRI_JDK_stack_item { 
/* Non pointer items */ 



j int i ; 

j float f; 
jint o; 
/* Pointer items */ 
void *h; 
void *p; 
unsigned char *addr; 
#ifdef 0SF1 

double d; 

long 1; /* == 64bits ! */ 



( (1) .hi = (i) >> 31, (1) .lo = (i) ) 

((1) .hi = 0, (1) .lo = (ui)) 

{ double _d = (double) f; jlong_D2L(l, 



ttendif 

} JRI_JDK_stack_item; 

typedef union JRI_JDK_Java8Str { 

jint x [2] ; 

j double d; 

j long 1 ; 

void *p; 

float f; 
} JRI_JDK_Java8; 



#ifdef HAVE_ALIGNED_LONGLONGS 

#define JRI_GET_INT64 (_t,_addr) ( ( (_t) .x[0] = ( (jint*) (_addr) ) [0] ) , \ 

({_t).x[l] = ((jint*) (_addr)) [1]) , \ 
(_t) .1 ) 

tfdefine JRI_SET_INT64 (_t , _addr, _v) ( (_t).l = (_v) , \ 

{(jint*) <_addr)) [0] = <_t).x[0], \ 
{(jint*) (_addr)) [1] = <_t).x[l] ) 

#else 

#define JRI_GET_INT64 (_t ,_addr) (*(jlong*) (_addr) ) 

ttdefine JRI_SET_INT64 (_t , _addr, __y) { * ( j long* ) (_addr ) = (_v) ) 

#endif 



/* If double's must be aligned on doubleword boundaries then define this 
#ifdef HAVE_ALIGNED_DOUBLES 

#define JRI_GET_DOUBLE(_t,_addr) ( {(_t).x[0] = ( ( j int* ) (_addr) ) [0] ) , \ 

<(_t).x[l] = ( (jint*) (_addr) ) [1] ) , \ 
(_t) .d ) 

addr, _v) ( (_t) .d = (_v) , \ 
((jint*) (_addr)) [0] = (_t).x[0], \ 
((jint*) (_addr)) [l] = (_t).x[l] ) 



tfdefine JRI SET DOUBLE ( t, 



#else 
#def ine 
#def ine 
#endif 



JRI_GET_DOUBLE (_t ,_addr) (* (j double*) (_addr) ) 
JRI_SET_DOUBLE (_t , _addr, _v) (* (j double* ) <_addr) 



( v)) 



#ifdef cplusplus 

} 

#endif 

,#endif /* JRI_MD_H */ 
/*********************************^ 



# Generated automatically from Makefile. in by configure. 
PACKAGE = plugext 

VERSION =1.0 

OBJS = plugext. o plugextCmd.o plugextCmdAZ . o NPN__wrapper . o pluglnstGmd . o 

pluglnstCmdAZ .o extensionLib . o 

# 

prefix = /usr/local 

execjprefix = $ {prefix} 

TCL_VERSION =8.0 

INSTALL = /usr/bin/install -c* 

INSTALL_PROGRAM = ${ INSTALL} 
INSTALL_DATA = ${ INSTALL} -m 644 

SHLIB_CFLAGS = -fPIC 

SHLIB_SUFFIX = .so 

SHLIB_LD = cc -shared 

## HP cc sometimes requires -Aa for proper ansi compilation 
TCL_C FLAGS = -DXP_UNIX -g 

L I B_RUNT I ME_D I R = ${ execjprefix }/ lib 

INCLUDES = -I${prefix} /include -Iinclude - I .. /Netscape/include 
DLL = $ (PACKAGE) $ (SHL I B_SUFF IX) 

DLLDIR = /usr/local/lib/$ (PACKAGE) $ (VERSION) 

CSWITCHES = -I. $ (TCL_CFLAGS) $ (SHLIB_CFLAGS) $ (INCLUDES) 
all: Makefile $ (DLL) pkglndex.tcl dlopen.so 

# Makefile: Makefile. in config . status 

# $ (SHELL) config. status 

config . status : configure 

$ (SHELL) config . status --recheck 

$ (DLL) : $ (OBJS) plugAncill . so 

$(SHLIB_LD) -o $@ $(OBJS) 

plugAncill . so : plugAncill .o 

$(SHLIB_LD) -o $@ plugAncill. o 

dlopen . so : dlopen . o 

$(SHLIB_LD) -o $@ dlopen. o 

plugext . o : plugext . c 

$ (CC) $ (CSWITCHES) $ (CPPFLAGS) -c plugext .c 

plugextCmd.o: plugextCmd.c 

$(CC) $(CSWITCHES) $(CPPFLAGS) -c plugextCmd.c 

plugextCmdAZ. o: plugextCmdAZ . c 

$(CC) $ (CSWITCHES) $ (CPPFLAGS) -c plugext CmdAZ.c 



NPN_wrapper . o : NPN_wrapper . c 



$<CC) $(CSWITCHES) $(CPPFLAGS) -c NPN_wrapper . c 

plugAncill . o : plugext . c 

$(CC) $(CSWITCHES) $(CPPFLAGS) -c plugAncill. c 



pluglns tCmd . o : pluglns tCmd . c 

$ (CO $ (CSWITCHES) $ (CPPFLAGS) 



-c pluglnstCmd . c 



pluglnstCmdAZ . o : pluglnstCmdAZ . c 

$(CC) $ (CSWITCHES) $ (CPPFLAGS) -c pluglnstCmdAZ. c 

extensionLib . o : extensionLib . c 

$(CC) $ (CSWITCHES) $ (CPPFLAGS) -c extensionLib. c 



pkglndex. tcl : 

(\ 

echo 'if {[catch {package require Tcl $ (TCL_VERSION) } ] } return' ;\ 
echo 'package if needed $ (PACKAGE) $ (VERSION) \ 

[list load [file join $$dir $ (DLL) .$ (VERSION) ] $( PACKAGE )]' \ 
) > pkglndex. tcl 



install: all 

if test ! -d " $ (DLLDIR) " ; then mkdir " $ (DLLDIR) " ; fi 
$ (INSTALL_PROGRAM) $ (DLL) "$ (DLLDIR) /$ (DLL) .$ (VERSION) 
$ (INSTALL_DATA) pkglndex. tcl "$ (DLLDIR) /pkglndex . tcl " 



test: all 

tclsh$ (TCL_VERSI0N) testplugext . tcl 



clean : 

rm -f *.o *$ (SHLIB_SUFFIX) core pkglndex. tcl test.* 



distclean: clean 

rm -f Makefile config. cache config.log config . status 



/* Mode: C; tab-width: 4; -*- */ 

/* 

* npapi.h $Revision: 1.1 $ 

* Netscape client plug-in API spec 
*/ 

#ifndef __NPAPI_H_ 
#define _NPAPI_H_ 

#include "jri.h" /* Java Runtime Interface */ 



/* XXX this needs to get out of here */ 

#if defined ( MWERKS ) 

#ifndef XP_MAC 
#define XP_MAC 
#endif 
#endif 



/* 

/* Plugin Version Constants 
/* 

#define NP_VERSION_MAJOR 0 
#define NP VERSION MINOR 9 



/* 

/* Definition of Basic Types 
/* 

#ifndef _UINT16 

typedef unsigned short uintl6; 
#endif 

#ifndef _UINT32 

#if defined ( alpha) 

typedef unsigned int uint32; 

#else /* alpha */ 

typedef unsigned long uint32; 

#endif /* alpha */ 

#endif 

#ifndef _INT16 
typedef short intl6; 
#endif 

#ifndef _INT32 

#if defined ( alpha) 

typedef int int32; 

#else /* alpha */ 

typedef long int32; 

#endif /* alpha */ 

#endif 



#ifndef FALSE 
#define FALSE (0) 



tteridif 

#ifndef TRUE 
#define TRUE (1) 
#endif 

#ifndef NULL 
#define NULL (OL) 
#endif 

typedef unsigned char NPBool; 
typedef void* NPEvent; 
typedef intl6 NPError; 
typedef intl6 NPReason; 
typedef char* NPMIMEType ; 



/* */ 

/* Structures and definitions */ 
/* */ 

/* 

* NPP is a plug- in' s opaque instance handle 
■*/ 

typedef struct _NPP 

{ 

void* pdata; /* plug-in private data */ 

void* ndata; /* netscape private data */ 

} NPP_t; 

typedef NPP_t* NPP ; 



typedef struct _NPStream 

{ 



void* 
void* 

const char* 
uint32 
uint32 
void* 
} NPStream; 



pdata; 
ndata; 
url ; 
end; 

lastmodif ied; 
not if yData; 



/* plug-in private data */ 
/* netscape private data */ 



typedef struct _NPByteRange 

{ 

int32 offset; /* negative offset means from the end */ 

uint32 length; 
struct _NPByteRange* next; 
} NPByteRange; 



typedef struct _NPSavedData 

{ 

int32 len; 
void* buf; 
} NPSavedData; 



typedef struct _NPRect 

{ 

uintl6 top; 

uintl6 left; 

uintl6 bottom; 

uintl6 right; 
} NPRect; 



#ifdef XP_UNIX 
/* 

* Unix specific structures and definitions 
*/ 

#include <X11/Xlib.h> 
/* 

* Callback Structures. 
* 

* These are used to pass additional platform specific information. 

*/ 
enum { 

NP_SETWINDOW = 1 

}; 

typedef struct 

{ 

int32 type; 
} NPAnyCallbackStruct; 

typedef struct 

{ 

int3 2 type; 

Display* display; 

Visual* visual; 

Colormap colormap ; 

unsigned int depth; 
} NPSetWindowCallbackStruct; 

/* 

* List of variable names for which NPP_GetValue shall be implemented 
*/ 

typedef enum { 

NPPVpluginNameString = 1, 

NPPVpluginDescriptionString 
} NPPVariable; 

/* 

* List of variable names for which NPN_GetValue is implemented by Mozilla 
*/ 

typedef enum { 

NPNVxDi splay =1, 

NPNVxtAppContext 
} NPNVariable; 

#endif /* XP_UNIX */ 



typedef struct _NPWindow 

{ 

void* window; 

uint32 x; 

uint32 y; 

uint32 width; 

uint32 height; 

NPRect clipRect; 



#ifdef XP_UNIX 

void * ws_info; 
#endif /* XPJJNIX */ 
} NPWindow; 



/* Platform specific window handle */ 

/* Position of top left corner relative */ 
/* to a netscape page. */ 

/* Maximum window size */ 

/* Clipping rectangle in port coordinates */ 
/* Used by MAC only. 

/* Platform-dependent additonal data */ 



typedef struct ^NPFullPrint 
{ 

NPBool pluginPrinted; /* Set TRUE if plugin handled fullscreen */ 

/* printing 



NPBool printOne; 



/* TRUE if plugin should print one copy */ 
/* to default printer 



*/ 

void* platf ormPrint ; /* Platform-specific printing info */ 
} NPFullPrint; 



typedef struct _NPEmbedPrint 

{ 

NPWindow windows- 
void* platf ormPrint ; 
} NPEmbedPrint; 



/* Platform-specific printing info */ 



typedef struct _NPPrint 

{ 

uintl6 mode; 
union 

{ 

NPFullPrint fullPrint; 
NPEmbedPrint embedPrint; 
} print; 
} NPPrint; 



/* NP_FULL or NP_EMBED */ 



/* if mode is NP_FULL */ 
/* if mode is NP_EMBED */ 



#ifdef XP_MAC 
/* 

* Mac-specific structures and definitions. 
*/ 

#include <Quickdraw . h> 
#include <Events.h> 

typedef struct NP_Port 
{ 

CGrafPtr port; /* Graf port */ 

int32 portx; /* position inside the topmost window 

int32 porty; 



} NP_Port; 



/* 

* Non-standard event types that can be passed to HandleEvent 
*/ 

#define getFocusEvent (osEvt + 16) 

#define loseFocusEvent (osEvt + 17) 

#define adjustCursorEvent (osEvt + 18) 

#endif /* XP_MAC */ 



/* 

* Values for mode passed 
*/ 

#define NP_EMBED 1 
#define NP_FULL 

/* 

* Values for stream type 
*/ 

#define NP_NORMAL 1 
#define NP_SEEK 
#define NP_ASFILE 3 
#define NP_AS F I LEONL Y 4 

#define NP MAXREADY ( 



to NPP New: 



2 

passed to NPP_NewStream : 
2 



( (unsigned) (-0) <<1) >>1) 



Error and Reason Code definitions 



7 



Values of type NPError: 



#define NPERR_BASE 

#define NPERR_NO_ERROR 

#define NPERR_GENERIC_ERROR 

#def ine NPERR_INVALID_INSTANCE_ERROR 

#define NPERR_INVALID_FUNCTABLE_ERROR 

#def ine NPERR_MODULE_LOAD_FAILED_ERROR 

#def ine NPERR_0UT_0F_MEM0RY_ERR0R 

#define NPERR_INVALID_PLUGIN_ERROR 

#def ine NPERR_INVALID_PLUGIN_DIR_ERROR 

#def ine NPERR_INCOMPATIBLE_VERSION_ERROR 

#define NPERR_INVALID_PARAM 

#define NPERR_INVALID_URL 

#define NPERR_F I LE_NOT_FOUND 

#define NPERR_NO_DATA 

#define NPERR STREAM NOT SEEKABLE 



(NPERR_BASE 
(NPERR BASE 



0) 
1) 



(NPERR_BASE + 2) 
(NPERR_BASE + 3) 
(NPERR_BASE + 4) 
(NPERR_BASE +5) 
(NPERR_BASE + 6) 
(NPERR_BASE + 7) 
(NPERR_BASE + 8) 

(NPERR_BASE + 9) 

(NPERR_BASE + 10) 
(NPERR_BASE + 11) 

(NPERR_BASE + 12) 
(NPERR BASE + 13) 



Values of type NPReason: 



#define NPRES BASE 



#define NPRES_NETWORK_ERR (NPRES_BASE + 0) 

#define NPRES_USER_BREAK (NPRES_BASE + 2) 

#define NPRESJDONE (NPRES_BASE + 3) 

/* 

* Don't use these obsolete error codes any more. 
*/ 

#define NP_NOERR NP_NOERR_is_obsolete_use_NPERR_NO_ERROR 
#define NP_EINVAL NP_EINVAL_is_obsolete_use_NPERR_GENERIC_ERROR 
#define NP EABORT NP_EABORT_is obsolete_use_NPRES_USER_BREAK 



/* */ 

/* Function Prototypes */ 
/* */ 

#if defined (_WIND0WS) ! defined (WIN32 ) 

#define NP_LOADDS _loadds 

#else 

#define NP_LOADDS 
#endif 

#ifdef cplusplus 

extern "C" { 
#endif 



/* 

* NPP_* functions are provided by the plugin and called by the navigator. 
*/ 

#ifdef XP_XJNIX 

char* NPP_GetMIMEDescription (void) ; 

NPError NPP_GetValue (void *, NPPVariable variable, 

void *value) ; 
#endif /* XP_UNIX */ 

NPP_Initialize (void) ; 
NPP_Shutdown (void) ; 
NP_LOADDS NPP_New (NPMIMEType pluginType, NPP instance, 

uintl6 mode, intl6 argc, char* argn[], 
char* argv[], NPSavedData* saved); 
NP_L0ADDS NPP_Destroy (NPP instance, NPSavedData** save) ; 
NP_LOADDS NPP__Setwindow (NPP instance, NPWindow* window); 
NP_L0ADDS NPP_NewStream (NPP instance, NPMIMEType type, 

NPStream* stream, NPBool seekable, 
uintl6* stype) ; 

NP_LOADDS NPP_DestroyStream(NPP instance, NPStream* stream, 

NPReason reason) ; 
NP_LOADDS NPP_WriteReady (NPP instance, NPStream* stream) ; 
NP_LOADDS NPP_Write (NPP instance, NPStream* stream, int32 offset, 

int32 len, void* buffer) ; 
NP_LOADDS NPP_StreamAsFile (NPP instance, NPStream* stream, 

const char* fname) ; 
NP_LOADDS NPP_Print (NPP instance, NPPrint* platf ormPrint ) ; 

NPP_HandleEvent (NPP instance, void* event); 
NPP_URLNotify (NPP instance, const char* url , 



NPError 

void 

NPError 



NPError 
NPError 
NPError 



NPError 

int32 
int32 

void 

void 

intl6 

void 



jref 



NPReason reason, void* notifyData) ; 
NPP_Get JavaClass (void) ; 



* NPN_* functions are 
*/ 

#ifdef XPJJNIX 
NPError 
variable , 

#endif /* XP_UNIX */ 
void 

netscape_minor) ; 
NPError 

NPError 

NPError 

char* buf, 

NPError 

char* buf, 

NPError 
rangeList) ; 
NPError 

stream) ; 

int32 

len, 

NPError 
void 

const char* 

void* 

void 

uint32 

void 

JRIEnv* 

jref 



provided by the navigator and called by the plugin. 

NPN_GetValue (NPP instance, NPNVariable 

void *value) ; 

NPN_Version (int* plugin_maj or , int* plugin_minor , 
int* netscape_major , int* 

NPN_GetURLNot if y (NPP instance, const char* url, 

const char* target, void* notifyData) 

NPN_GetURL (NPP instance, const char* url, 
const char* target)*; 

NPN_PostURLNotify (NPP instance, const char* url, 
const char* target, uint32 len, const 

NPBool file, void* notifyData) ; 
NPN_PostURL (NPP instance, const char* url, 

const char* target, uint32 len, const 

NPBool file) ; 
NPN_RequestRead (NPStream* stream, NPByteRange* 

NPN_NewStream (NPP instance, NPMIMEType type, 
const char* target, NPStream** 

NPN_Write (NPP instance, NPStream* stream, int32 

void* buffer) ; 
NPN_DestroyStream(NPP instance, NPStream* stream, 

NPReason reason) ; 
NPN_Status (NPP instance, const char* message); 
NPN_UserAgent (NPP instance); 
NPN_MemAlloc (uint32 size) ; 
NPN_MemFree (void* ptr) ; 
NPN_MemFlush (uint32 size) ; 
NPN^ReloadPlugins (NPBool reloadPages) ; 
NPN_GetJavaEnv (void) ; 
NPN Get JavaPeer (NPP instance); 



#ifdef cplusplus 

} /* end extern "C" */ 
#endif 



ttendif /* NPAPI H */ 



#if defined (_WIN32) 
^include <windows.h> 
#include <stdio. h> 
#endif 

tfinclude <stdlib. h> 
#include <string.h> 
# inc lude " npupp . h " 
#include "plugextlnt .h" 

extern Tcl_HashTable *plugext_hashtablePtr ; 
#include <stdarg.h> 



/* FOR DEBUGGING PURPOSES - takes a set of chars and makes a null terminated 
string 

*/ 

static char tmpString [512] ; 

FILE *logFile = NULL; 

void MyOpenit () { 

logFile = f open ( "NPNLog" , "a"); 

} 

void MyCloselt () { 
fclose (logFile) ; 

} 

void MyPrint (char *fmt, . ..) { 
va_list ap; 

MyOpenit ( ) ; 

va_start(ap, fmt) ; 

vfprintf (logFile, fmt, ap) ; 
MyCloselt () ; 

} 

char * makeNullTerm (char *input, int len) { 

if (len > 511) len = 511; 

memcpy (tmpString, input, len) ; 
tmpString [len] = 0; 
return tmpString; 

} 



#ifdef XP_UNIX 

NPError PlugGetValue (NPP NPPhandle, NPNVariable variable, void *value) { 

MyPrint ( " PlugGetValue (NPP NPPhandle, NPNVariable variable, called %xx 

%d %xx\n" , 

NPPhandle, variable, value) ; 
f flush (stdout) ; 



} 

#endif /* XP_UNIX */ 

void PlugVersion (int* plugin_major , int* plugin_minor , 
int* netscape_major , int* netscape_minor) { 

MyPrint ( ■ PlugVersion (int* plugin__major , int* plugin_minor , called %d 

%d\n", 

plugin_major, plugin_minor) ; 
f flush (stdout) ; 
*plugin_minor = 9; 
*plugin_major = 0; 

} 

NPError PlugGetURLNotif y (NPP NPPhandle, const char* url, const char* target, 
void* notifyData) { 

MyPrint ( " PlugGetURLNotif y (NPP NPPhandle, const char* url, called %xx 

%s %s %xx\n M , 

NPPhandle, url, target, notifyData); 

f flush (stdout) ; 

return (0) ; 

} 

NPError PlugGetURL (NPP NPPhandle, const char* url, const char* target) { 

MyPrint ( " PlugGetURL (NPP NPPhandle, const char* url, called %xx %s 

%s\n" , 

NPPhandle, url, target); 
f flush (stdout) ; 
return (0) ; 
} 

NPError PlugPostURLNotif y (NPP NPPhandle, const char* url, 

const char* target, uint32 len, 

const char* buf, NPBool file, 

void* notifyData) { 

MyPrint ( " PlugPostURLNotif y (NPP NPPhandle, const char* url, called %xx 

%s %s %d %s %xx %xx\n", 

NPPhandle, url, target, len, buf, file, notifyData); 
ff lush (stdout) ; 
return (0) ; 
} 

NPError PlugPostURL (NPP NPPhandle, const char* url, 

const char* target, uint32 len, 
const char* buf, NPBool file) { 

MyPrint ( " PlugPostURL (NPP NPPhandle, const char* url, called %xx %s %s 

%d %s %xx\n M , 

NPPhandle, url, target, len, buf, file) ; 
f flush (stdout) ; 
return (0) ; 
} 

NPError PlugRequestRead (NPStream* stream, NPByteRange* rangeList) { 

MyPrint ( " PlugRequestRead (NPStream* stream, NPByteRange* rangeList %xx 

%xx called\n" , stream, rangeList); 
f flush (stdout) ; 
return (0) ; 

} 



NPError PlugNewStream (NPP NPPhandle, NPMIMEType type, 

const char* target, NPStream** stream) { 

NPStream *str; 

Tcl_HashEntry *hashEntryPtr ; 
Tcl_HashSearch hashSearch; 

InstanceData *instanceData; 



hashEntryPtr = Tcl_FirstHashEntry (plugext_hashtablePtr , &hashSearch) ; 
instanceData = (InstanceData *) Tcl_GetHashValue (hashEntryPtr) ; 

while (instanceData- >handle ! = NPPhandle) { 

hashEntryPtr = Tcl_NextHashEntry (&hashSearch) ; 
if (hashEntryPtr == NULL) { 
return -1; 

} 

instanceData = (InstanceData *) Tcl_GetHashValue (hashEntryPtr) ; 

} 

♦stream = (NPStream *) Tcl_Alloc ( sizeof (NPStream)); 
str = *stream; 

MyPrint ( " PlugNewStream (NPP instance, %xx NPMIMEType type %s, target: 

%s *stream: %xx INstance : :pdata : %xx ndata: %xx\n", 

NPPhandle, type, target, stream, NPPhandle ->pdata, NPPhandle- >ndata) ; 
ff lush(stdout) ; 
str->pdata = instanceData; 
str->url = "Test"; 

MyPrint ( " PlugNewStream post *streams: %xx\n", str->pdata) ; 

f flush (stdout) ; 

return 0 ; 

} 

int32 PlugWrite (NPP NPPhandle, NPStream* stream, int32 len, 

void* buffer) { 
InstanceData * instanceData; 
instanceData = stream- >pdata; 
if ( instanceData- >readBuf f er == NULL) { 

instanceData- >readBuffer = Tcl_Alloc ( len*10 ) ; 
instanceData- >readSize = len*10; 
instanceData- >readOff set = 0; 
instanceData- >readLen = 0; 

} 

if ( (instanceData- >readOff set + len) > instanceData->readSize) { 
instanceData- >readBuffer = realloc (instanceData- >readBuffer, 
instanceData->readSize * 2) ; 

instanceData- >readSize = instanceData->readSize * 2; 

} 

memcpy (instanceData- >readBuffer + instanceData- >readLen, buffer, len) ; 
instanceData->readLen += len ; 

MyPrint ( " PlugWrite (NPP NPPhandle %xx, NPStream* stream %xx, int32 len 

%xx, buf: %s called\n" , 

NPPhandle, stream, len, makeNullTerm (buf f er , len) ); 

MyPrint ( " PlugWrite stream- >pdata : %xx", stream- >pdata) ; 

f flush (stdout) ; 



return (0) ; 

} 

NPError PlugDestroyStream (NPP NPPhandle, NPStream* stream, 

NPReason reason) { 

MyPrint ( " PlugDestroyStream (NPP NPPhandle, NPStream* stream, 

called\n") ; 

ff lush(stdout) ; 

return (0) ; 

} 

void PlugStatus (NPP NPPhandle, const char* message) { 

MyPrint ( " PlugStatus (NPP NPPhandle, const char* message); called\n n ); 

MyPrint ( "PlugStatus message: %s\n", message); 
f f lush(stdout) ; 

} 

const char* PlugUserAgent (NPP NPPhandle) { 

MyPrint ( " char* PlugUserAgent (NPP NPPhandle) ; called\n"); 

ff lush(stdout) ; 

return ("mozilla 3.0"); 

} 

void* PlugMemAlloc (uint32 size) { 

MyPrint ( " PlugMemAlloc (uint32 size) %d; called\n", size); 

f flush (stdout) ; 

return (Tcl_Alloc (size) ) ; 

} 

void PlugMemFree (void* ptr) { 

MyPrint ( " PlugMemFree (void* ptr); called\n"); 

f flush (stdout) ; 
Tcl_Free (ptr) ; 

} 

uint32 PlugMemFlush (uint32 size) { 

MyPrint ( " PlugMemFlush (uint32 size) \n n ); 

ff lush (stdout) ; 
return (0) ; 

} 

void PlugReloadPlugins (NPBool reloadPages) { 

MyPrint ( " PlugReloadPlugins (NPBool reloadPages) \n" ) ; 

f flush (stdout) ; 

} 

JRIEnv* PlugGetJavaEnv (void) { 

MyPrint ( " PlugGetJavaEnv (void) \n" ) ; 

f flush (stdout) ; 
return (NULL) ; 
} 

jref PlugGet JavaPeer (NPP NPPhandle) { 

MyPrint ( *' - - - PlugGet JavaPeer (NPP NPPhandle) \n" ) ; 
f flush (stdout) ; 
return (NULL) ; 

} 



int setPlugextEntryPoints (NPNetscapeFuncs *n) { 



MyPrint ( " hit NP_GetEntryPoints : %d %xx\n", n->size, n) ; f flush ( stdout ) ; 

MyPrint ( " hit NP_GetEntryPoints : %xx\n", PlugUserAgent) ; f flush (stdout ) ; 

MyPrint ( " hit NP_Get Entry Points : %xx\n", PlugMemAlloc) ; f flush (stdout) ; 

MyPrint ( " hit NP_GetEntryPoints : %xx\n" , PlugMemFlush) ; f flush (stdout ) ; 

MyPrint ( " hit NP_GetEntryPoints : %xx\n" , PlugMemFree) ; f flush (stdout ) ; 

if (n->size < sizeof (NPNetscapeFuncs) ) { 

return (NPERR_INVALID_FUNCTABLE_ERROR) ; 

} 

n->geturl = PlugGetURL 
n->posturl = PlugPostURL ; 
n->requestread = PlugRequestRead ; 
n- >newstream = PlugNewStream ; 
n->write = PlugWrite ; 

n->destroystream = PlugDestroyStream ; 

n->status = PlugStatus ; 

n->uagent = PlugUserAgent ; 

n->memalloc = PlugMemAlloc ; 

n->memfree = PlugMemFree ; 

n->memflush = PlugMemFlush ; 

n- >reloadplugins = PlugReloadPlugins ; 

n->getJavaEnv = PlugGet JavaEnv ; 

n->getJavaPeer = PlugGet JavaPeer ; 

n->geturlnotify = PlugGetURLNotif y / 

n->posturlnotify = PlugPostURLNotif y 
#ifdef XP_UNIX 

n->getvalue = PlugGetValue ; 
#endif 
} 



/* 

Forward declarations for NPN_wrapper . c 
*/ 

#ifndef NPN_WRAPPER_H 
#define NPN_WRAPPER_H 

#ifndef _NPUPP_H_ 
#include "npupp . h" 
#endif 

char *makeNullTerm (char *, int ); 

NPError PlugGetValue (NPP , void *, void *) ; 

void PlugVersion (int* , int*, int*, int* ); 

NPError PlugGetURLNotif y (NPP, const char*, const char*, void*) ; 

NPError PlugGetURL (NPP; const char*, const char*); 

NPError PlugPostURLNotif y (NPP, const char*, const char*, uint32, 

const char*, NPBool, void*); 
NPError PlugPostURL (NPP, const char*, const char*, uint32, 

const char*, NPBool) ; 
NPError PlugRequestRead (NPStream* , NPByteRange* ) ; 
NPError PlugNewStream (NPP, NPMIMEType, const char*, NPStream**); 
int32 PlugWrite (NPP, NPStream*, int32, void*); 
NPError PlugDestroyStream (NPP , NPStream*, NPReason) ; 
void PlugStatus (NPP, const char*) ; 
const char* PlugUserAgent (NPP) ; 
void* PlugMemAlloc (uint32) ; 
void PlugMemFree (void*) ; 
uint32 PlugMemFlush (uint32) ; 
void PlugReloadPlugins (NPBool) ; 
JRIEnv* PlugGetJavaEnv (void) ; 
jref PlugGet JavaPeer (NPP) ,* 

int setPlugextEntryPoints (NPNetscapeFuncs *) ; 



#endif 



/* _*_ Mode: C; tab-width: 4; -*- */ 
/* 

* npupp.h $Revision: 1.1 $ 

* function call mecahnics needed by platform specific glue code. 
*/ 



#ifndef _NPUPP_H_ 
# define _NPUPP_H_ 

#ifndef GENERATINGCFM 
ttdefine GENERATINGCFM 0 
#endif 



#ifndef _NPAPI_H_ 
#include "npapi .h 
#endif 



#include "jri.h 
/************** 



plug-in function table macros 

for each function in and out of the plugin API we define 
typedef NPP_FooUPP 

#define NewNPP_FooProc 
#define CallNPP_FooProc 
for mac, define the UPP magic for PPC/68K calling 



/ 



/* NPP_Initialize */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_InitializeUPP; 
enum { 

uppNPP_InitializeProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( 0 ) ) 
| RESULT_SIZE (SIZE_CODE (0) ) 

}; 

#define NewNPP_InitializeProc (FUNC) \ 

(NPP_InitializeUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_InitializeProcInf o, GetCurrentArchitecture () ) 
#define CallNPP_InitializeProc (FUNC) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_InitializeProcInf o) 

#else 

typedef void (*NPP_InitializeUPP) (void) ; 
#define NewNPP_InitializeProc (FUNC) \ 

( (NPP_InitializeUPP) (FUNC) ) 
#define CallNPP_InitializeProc (FUNC) \ 



(* (FUNC) ) () 



#endif 



/* NPP_Shutdown */ 
#if GENERATINGCFM 

typedef Universal ProcPtr NPP_ShutdownUPP; 
enum { 

uppNPP_ShutdownProdnf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( 0 ) ) 
| RESULT_SIZE(SIZE_CODE(0) ) 

}; 

#define NewNPP_ShutdownProc (FUNC) \ 

(NPP_ShutdownUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_ShutdownProcInf o, GetCurrentArchitecture () ) 
#define CallNPP_ShutdovmProc (FUNC) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_ShutdownProcInf o) 

#else 

typedef void (*NPP_ShutdovmUPP) (void) ; 
#define NewNPP_ShutdownProc (FUNC) \ 

( (NPP_ShutdownUPP) (FUNC) ) 
#define CallNPP_ShutdownProc (FUNC) \ 

(* (FUNC) ) () 

#endif 



/* NPP New */ 



#if GENERATINGCFM 

typedef UniversalProcPtr NPP_NewUPP; 



enum { 



uppNPP_NewProc!nfo = kThinkCStackBased 



}; 



STACK_ROUTINE_ 
S T AC K_ROUT I NE~ 
S T AC K_ROUT I NE^ 
S T AC K_ROUT I NE~ 
STACK ROUTINE* 



PARAMETER ( 1 , 
"PARAMETER (2, 
[PARAMETER (3, 
[PARAMETER (4, 
"PARAMETER ( 5 , 



STACK_ROUTINE_PARAMETER ( 6 , 
STACK ROUTINE PARAMETER (7, 



SIZE_CODE (sizeof (NPMIMEType) ) ) 
SIZE_CODE (sizeof (NPP) ) ) 
SIZE_CODE (sizeof (uintl6) ) ) 
SIZE_CODE (sizeof (intl6) ) ) 
SIZE_CODE (sizeof (char **))) 
SIZE_CODE (sizeof (char **))) 
SI2E CODE (sizeof (NPSavedData * 



RESULT SIZE (SIZE CODE (sizeof (NPError) ) ) 



#define NewNPP_NewProc (FUNC) \ 

(NPP_NewUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_NewProdnf o, GetCurrentArchitecture ( ) ) 

#define CallNPP_NewProc (FUNC, ARG1 , ARG2 , ARG3 , ARG4 , ARG5 , ARG6 , 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_NewProdnf o, \ 



ARG7) 



(ARG4), (ARG5) , (ARG6) , (ARG7) ) 
#else 



(ARG1), (ARG2), (ARG3), 



typedef NPError ( *NPP_NewUPP) (NPMIMEType pluginType, NPP instance, uintlS 
mode, intl6 argc, char* argn[], char* argv[], NPSavedData* saved); 
#define NewNPP_NewProc (FUNC) \ 

{ (NPP_NewUPP) (FUNC) ) 
#define CallNPP_NewProc (FUNC, ARG1, ARG2 , ARG3 , ARG4 , ARG5 , ARG6 , ARG7) \ 

(* (FUNC) ) ( (ARG1) , (ARG2) , (ARG3), (ARG4), (ARG5) , (ARG6) ( (ARG7) ) 

#endif 



/* NPP_Destroy */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_DestroyUPP; 
enum { 

uppNPP_DestroyProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1, SIZE_CODE ( sizeof (NPP) ) ) 

| STACK_ROUTINE_PARAMETER (2, SIZE_CODE ( sizeof (NPSavedData **) ) ) 

| RESULT_SIZE (SIZE_CODE ( sizeof (NPError) ) ) 

}; 

#define NewNPP_Des troy Proc (FUNC) \ 

(NPP_DestroyUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_DestroyProcInf o, GetCurrentArchitecture ( ) ) 
#define CallNPPJDes troy Proc (FUNC, ARG1 , ARG2) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPPJDestroyProcInfo, (ARG1) , (ARG2) ) 
#else 

typedef NPError (*NPP_DestroyUPP) (NPP instance, NPSavedData** save); 
#define NewNPP_Des troy Proc (FUNC) \ 

( (NPP_DestroyUPP) (FUNC) ) 
#define CallNPP_DestroyProc (FUNC, ARG1, ARG2) \ 

(* (FUNC) ) ( (ARG1) , (ARG2) ) 

#endif 



/* NPP_SetWindow */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_SetWindowUPP; 
enum { 

uppNPP_SetWindowProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE { sizeof (NPP) ) ) 

| STACK_ROUTINE_PARAMETER (2 , SIZE_CODE (sizeof (NPWindow *) ) ) 

| RESULT_SIZE(SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPP_SetWindowProc (FUNC) \ 

(NPP_SetWindowUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_SetWindowProcInfo, GetCurrentArchitecture () ) 
#define CallNPP_SetWindowProc (FUNC, ARG1, ARG2) \ 



(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_SetWindowProdnfo, (ARG1 ) , (ARG2 ) ) 

#else 

typedef NPError ( *NPP_SetWindowUPP) (NPP instance, NPWindow* window) ; 
#define NewNPP_SetWindowProc (FUNC) \ 

( (NPP_SetWindowUPP) (FUNC) ) 
#define CallNPP_SetWindowProc (FUNC, ARG1 , ARG2) \ 

(* (FUNC) ) ( (ARG1) , (ARG2) ) 

#endif 



/* NPP_NewStream */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_NewStreamUPP; 
enum { 

uppNPP_NewStreamProdnf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1, SIZE_CODE ( sizeof (NPP) ) ) 
| STACK_ROUTINE_PARAMETER (2 , SIZE_CODE ( si zeof (NPMIMEType) ) ) 
| STACK_ROUTINE_PARAMETER (3 , SIZE_CODE ( sizeof (NPStream *))) 
j STACK_ROUTINE_PARAMETER (4 , SIZE_CODE (sizeof (NPBool) ) ) 
| STACK_R0UTINE_PARAMETER(5, SIZE_CODE (sizeof (uint 16 *))) 
| RESULT_SIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPP_NewStreamProc (FUNC) \ 

(NPP_NewStreamUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_NewStreamProdnf o, GetCurrent Architecture ( ) ) 

#define CallNPP_NewStreamProc (FUNC, ARG1 , ARG2 , ARG3 , ARG4 , ARG5) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPPJSTewStreamProcInfo, (ARG1) , (ARG2) , (ARG3) , (ARG4) , (ARG5) ) 
#else 

typedef NPError ( *NPP_NewStreamUPP) (NPP instance, NPMIMEType type, NPStream* 
stream, NPBool seekable, uintl6* stype) ; 
#define NewNPP_NewStreamProc (FUNC) \ 

( (NPP_NewStreamUPP) (FUNC) ) 
#define CallNPP__NewStreamProc (FUNC, ARG1, ARG2 , ARG3 , ARG4 , ARG5) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3), (ARG4), (ARG5) ) 

#endif 



/* NPP_DestroyStream */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_DestroyStreamUPP; 
enum { 

uppNPP_DestroyStreamProdnf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE (sizeof (NPP) ) ) 
| STACK_ROUTINE_PARAMETER (2 , SIZE_CODE (sizeof (NPStream *) ) ) 
| STACK_ROUTINE_PARAMETER (3 , SIZE_CODE (sizeof (NPReason) ) ) 
| RESULT_SIZE (SIZE_CODE ( sizeof (NPError) ) ) 

}; 



#define NewNPP_DestroyStreamProc (FUNC) \ 

(NPP_DestroyStreamUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPPJDestroyStreamProdnfo, GetCurrentArchitecture () ) 

#define CallNPPJDestroyStreamProc (FUNC, NPParg, NPStreamPtr , NPReasonArg) 
\ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_DestroyStreamProcInfo, (NPParg) , (NPStreamPtr) , (NPReasonArg) ) 

#else 

typedef NPError ( *NPP_DestroyStreamUPP) (NPP instance, NPStream* stream, 
NPReason reason) ; 

ftdefine NewNPP_DestroyStreamProc (FUNC) \ 

( (NPP_DestroyStreamUPP) (FUNC) ) 
#define CallNPP_DestroyStreamProc (FUNC, NPParg, NPStreamPtr, NPReasonArg) 

\ 

(* (FUNC) ) ( (NPParg) , (NPStreamPtr) , (NPReasonArg) ) 

#endif 



/* NPP_WriteReady */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_WriteReadyUPP; 
enum { 

uppNPP_WriteReadyProdnfo = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( s izeof (NPP) ) ) 

| STACK_R0UTINE_PARAMETER(2, SIZE_CODE ( s izeof (NPStream *))) 

j RESULT_SIZE(SIZE_CODE(sizeof (int32) ) ) 

}; 

#define NewNPP_WriteReadyProc (FUNC) \ 

(NPP_WriteReadyUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_Wri teReadyProcInf o , GetCurrentArchitecture ( ) ) 

#define CallNPP_WriteReadyProc (FUNC, NPParg, NPStreamPtr) \ 

(int32) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_WriteReadyProcInf o, (NPParg) , (NPStreamPtr) ) 

#else 

typedef int32 ( *NPP_WriteReadyUPP) (NPP instance, NPStream* stream); 
ttdefine NewNPP_WriteReadyProc (FUNC) \ 

( (NPP_WriteReadyUPP) (FUNC) ) 
#define CallNPPJtfriteReadyProc (FUNC, NPParg, NPStreamPtr) \ 

(* (FUNC) ) ( (NPParg) , (NPStreamPtr) ) 

#endif 



/* NPP_Write */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_WriteUPP; 
enum { 

uppNPP_WriteProc!nf o = kThinkCStackBased 



I STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE (sizeof (NPP) ) ) 

| STACK_ROUTINE_PARAMETER (2 , SIZE_CODE (sizeof (NPStream *) ) ) 

| STACK_ROUTINE_PARAMETER (3 , SIZE_CODE (sizeof ( int32 ) ) ) 

| STACK_ROUTINE_PARAMETER (4 , SIZE_CODE ( sizeof (int32.) ) ) 

| STACK_ROUTINE_PARAMETER (5 , SIZE_CODE ( sizeof (void* )) ) 

| RESULT_SIZE(SIZE_CODE (sizeof (int32) ) ) 

}; 

#define NewNPPJtfriteProc (FUNC) \ 

(NPP_WriteUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_WriteProdnf o, GetCurrentArchitecture () ) 

#define CallNPP_WriteProc (FUNC, NPParg, NPStreamPtr, of fsetArg, lenArg, 
bufferPtr) \ 

(int32) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_WriteProdnfo, (NPParg) , (NPStreamPtr ) , (of fsetArg) , (lenArg) , 
(bufferPtr) ) 

#else 

typedef int32 ( *NPP_WriteUPP) (NPP instance, NPStream* stream, int32 offset, 
int32 len, void* buffer) ; 

#define NewNPP_WriteProc (FUNC) \ 

( (NPP_WriteUPP) (FUNC) ) 
#define CallNPP_WriteProc (FUNC, NPParg, NPStreamPtr, of fsetArg, lenArg, 
bufferPtr) \ 

(* (FUNC) ) ( (NPParg) , (NPStreamPtr) , (of fsetArg) , (lenArg) , 

(bufferPtr)) 
#endif 



/* NPP_StreamAsFile */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_StreamAsFileUPP ; 
enum { 

uppNPP_StreamAsFileProdnfo = kThinkCStackBased 

| STACK_ROUTINE_PARANETER ( 1 , SIZE_CODE ( sizeof (NPP) ) ) 
| STACK_ROUTINE_PARAMETER (2 , SIZE_CODE ( sizeof (NPStream *) ) ) 
| STACK_R0UTINE_PARANETER(3, SIZE_CODE ( sizeof (const char *))) 
| RESULT_SIZE (SIZE_CODE (0) ) 

}; 

#define NewNPP_StreamAsFileProc (FUNC) \ 

(NPP_StreamAsFileUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_StreamAsFileProdnf o , GetCurrentArchitecture ( ) ) 
#define CallNPP_StreamAsFileProc (FUNC, ARG1 , ARG2 , ARG3) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_StreamAsFileProdnfo / (ARG1) , (ARG2) , (ARG3) ) 

#else 

typedef void (*NPP_StreamAsFileUPP) (NPP instance, NPStream* stream, const char* 
fname) / 

#define NewNPP_StreamAsFileProc (FUNC) \ 

( (NPP^StreamAsFileUPP) (FUNC) ) 
#define CallNPP_StreamAsFileProc (FUNC, ARG1, ARG2 , ARG3 ) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3) ) 



#endif 



/* NPP_Print */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_PrintUPP; 
enum { 

uppNPP_PrintProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( sizeof (NPP) ) ) 

| STACK_R0UTINE_PARAMETER(2, SIZE_CODE ( sizeof (NPPrint *) ) ) 

| RESULT_S IZE (SI ZE_CODE { 0 ) ) 

}; 

#define NewNPP_PrintProc (FUNC) \ 

(NPP_PrintUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_PrintProcInfo / GetCurrentArchitecture () ) 
#define CallNPP_PrintProc (FUNC, NPParg, voidPtr) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_PrintProdnf o, (NPParg) , (voidPtr) ) 

#else 

typedef void (*NPP_PrintUPP) (NPP instance, NPPrint* platf ormPrint ) ; 
#define NewNPP_PrintProc (FUNC) \ 

( (NPP_PrintUPP) (FUNC) ) 
#define CallNPP_PrintProc (FUNC, NPParg, NPPrintArg) \ 

(* (FUNC) ) ( (NPParg) , (NPPrintArg) ) 

#endif 



/* NPP_HandleEvent */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_HandleEventUPP; 
enum { 

uppNPP_HandleEventProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1, SIZE_CODE (sizeof (NPP) ) ) 

j STACK_ROUTINE_PARAMETER (2 , SIZE_CODE (sizeof (void *))) 

j RESULT_SIZE (SIZE_CODE (sizeof (intl6) ) ) 

}; ' 

#define NewNPP^HandleEventProc (FUNC) \ 

(NPP_HandleEventUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_HandleEventProdnfo, GetCurrentArchitecture () ) 
#define CallNPP_HandleEventProc (FUNC, NPParg, voidPtr) \ 

( int 16) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_HandleEventProcInfo, (NPParg) , (voidPtr) ) 

#else 

typedef intl6 ( *NPP_HandleEventUPP) (NPP instance, void* event) ; 
ttdefine NewNPP_HandleEventProc (FUNC) \ 

( (NPP_HandleEventUPP) (FUNC) ) 
#define CallNPP_HandleEventProc (FUNC, NPParg, voidPtr) \ 

(* (FUNC) ) ( (NPParg) , (voidPtr) ) 



#endif 



/* NPP_URLNotify */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPP_URLNotif yUPP; 
enum { 

uppNPP_URLNotifyProdnfo = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1 , SIZE_CODE ( sizeof (NPP) ) ) 

j STACK_R0UTINE_PARAMETER(2, SIZE_CODE ( sizeof (const char*))) 

j S T AC K_ROUT I NE_P ARAMETE R (3 , SIZE_CODE ( sizeof (NPReason) ) ) 

j STACK_ROUTINE_PARAMETER (4 , SIZE_CODE ( si zeof (void*) ) ) 

j RESULTJSIZE(SIZE_CODE(SIZE_CODE<0) ) ) 

}; 

#define NewNPP_URLNotif yProc (FUNC) \ 

(NPP_URLNotifyUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPP_URLNotifyProdnf o, GetCurrentArchitecture () ) 

#define CallNPP_URLNotif yProc (FUNC, ARG1, ARG2 , ARG3 , ARG4) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPP_URLNotifyProdnfo, (ARG1) , (ARG2) , (ARG3 ) , (ARG4) ) 

#else 

typedef void ( *NPP_URLNotif yUPP) (NPP instance, const char* url, NPReason reason, 
void* notifyData) ; 

#define NewNPP_URLNotif yProc (FUNC) \ 

( (NPP_URLNotifyUPP) (FUNC) ) 
tfdefine CallNPP_URLNotifyProc (FUNC, ARG1, ARG2 , ARG3 , ARG4) \ 

(* (FUNC) ) ( (ARG1) , (ARG2) , (ARG3), (ARG4 ) ) 

ttendif 



/* 

* Netscape entry points 
*/ 

#ifdef XP_UNIX 

/* NPN_GetValue */ 

#if GENERATINGCFM 

typedef UniversalProcPtr NPN_GetValueUPP; 
enum { 

uppNPN_GetValueProdnfo = kThinkCStackBased 

| STACK_R0UTINE_PARAMETER(1, SIZE_CODE ( sizeof (NPP) ) ) 

| STACK_ROUT I NE_P ARAMETE R (2 , SIZE_CODE ( sizeof (NPNVariable ) ) ) 

j STACK_ROUTINE_PARAMETER ( 3 , SIZE_CODE ( sizeof (void *))) 

j RESULT_SIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_GetValueProc (FUNC) \ 



(NPN_GetValueUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_GetValueProdnf o, GetCurrentArchitecture ( ) ) 
#define CallNPN_GetURNotifyLProc (FUNC, ARG1, ARG2 , ARG3 ) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr ) (FUNC) , 
uppNPNJ3etValueProdnfo, (ARG1) , (ARG2) , (ARG3) ) 
#else 

typedef NPError ( *NPN_GetValueUPP) (NPP instance, NPNVariable variable, void 
*ret_alue) ; 

#define NewNPN_GetValueProc (FUNC) \ 

( (NPN_GetValueUPP) (FUNC) ) 
#define CallNPN_GetValueProc (FUNC, ARG1 , ARG2 , ARG3) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3 ) ) 

#endif 

#endif /* XP_UNIX */ 



/* NPN_GetUrlNotify */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_Ge tURLNot if yUPP; 
enum { 

uppNPN_GetURLNotifyProdnf o = kThinkCStackBased 

| STACK_R0UTINE_PARAMETER(1 / SIZE_CODE (sizeof (NPP) ) ) 

j STACK_R0UTINE_PARAMETER(2, SIZE_CODE (sizeof (const char*))) 

j STACK_R0UTINE_PARAMETER(3, SIZE_CODE (sizeof (const char* )) ) 

| STACK_ROUT I NE_ PARAMETER (4 , SIZE_CODE (sizeof (void*) ) ) 

| RESULT_SIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_GetURLNotif yProc (FUNC) \ 

(NPN_Ge tURLNot if yUPP) NewRoutineDescriptor { (ProcPtr) (FUNC) , 
uppNPN_GetURLNotifyProcInfo, GetCurrentArchitecture () ) 
#define CallNPN_GetURNotif yLProc (FUNC, ARG1, ARG2 , ARG3 , ARG4) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_GetURLNotifyProdnfo, (ARG1) , (ARG2) , (ARG3) , (ARG4) ) 
#else 

typedef NPError ( *NPN_Ge tURLNot i f yUPP ) (NPP instance, const char* url, const 
char* window, void* notifyData) ; 

#define NewNPN_GetURLNotif yProc (FUNC) \ 

( (NPN_GetURLNotifyUPP) (FUNC) ) 
#define CallNPN_GetURLNotif yProc (FUNC, ARG1, ARG2, ARG3 , ARG4) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3) , (ARG4) ) 

#endif 



/* NPN_PostUrlNotify */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_Pos tURLNot i f yUPP ; 
enum { 

uppNPN_PostURLNotifyProdnfo = kThinkCStackBased 

| STACK_R0UTINE_PARAMETER(1, SIZE_CODE (sizeof (NPP) ) ) 



I STACK_ROUTINE_PARAMETER (2 , SIZE_CODE (sizeof (const char*) ) ) 

| STACKJR0UTINE_PARAMETER(3, SIZE_CODE ( sizeof (const char*))) 

j STACKJK)UTINEJPARAMETER<4, SIZE_CODE (sizeof (uint32) ) ) 

| STACK_R0UTINE_PARAMETER(5, SIZE_CODE ( sizeof (const char *)) ) 

j STACK_ROUTINE_PARAMETER ( 6 , SIZE_CODE (sizeof (NPBool) ) ) 

j STACK_ROUTINE_PARAMETER (7, SIZE_CODE ( sizeof (void*) ) ) 

j RESULT_SIZE (SIZE CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_PostURLNotif yProc (FUNC) \ 

(NPN_PostURLNotifyUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_PostURLNotifyProdnfo, GetCurrentArchitecture ( ) ) 

#define CallNPN_PostURLNotifyProc (FUNC, ARG1 , ARG2 , ARG3 , ARG4 , ARG5 , ARG6 , 
ARG7) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_PostURLNotifyProdnfo, (ARG1) , (ARG2) , (ARG3) , (ARG4) , (ARG5) , (ARG6) , 
(ARG7) ) 
#else 

typedef NPError ( *NPN_Pos tURLNot i f yUPP ) (NPP instance, const char* url, const 
char* window, uint32 len, const char* buf, NPBool file, void* notifyData) ; 
#define NewNPN_PostURLNotif yProc (FUNC) \ 

( (NPN_PostURLNotifyUPP) (FUNC) ) 
#define CallNPN_PostURLNotifyProc (FUNC, ARG1 , ARG2 , ARG3 , ARG4 , ARG5 , ARG6, 
ARG7) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3) , (ARG4), (ARG5) , (ARG6), (ARG7 ) ) 

#endif 



/* NPN_GetUrl */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPNj3etURLUPP ; 
enum { 

uppNPN_GetURLProdnf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( sizeof (NPP) ) ) 
j STACK_R0UTINE_PARAMETER(2, SIZE_CODE (sizeof (const char*))) 
j STACK_R0UTINE_PARAMETER(3, SIZE_CODE (sizeof (const char*))) 
I RESULT_SIZE(SIZE CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_GetURLProc ( FUNC) \ 

(NPN_GetURLUPP) NewRout ineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_GetURLProcInfo, GetCurrentArchitecture () ) 
#define CallNPN_GetURLProc (FUNC, ARG1, ARG2 , ARG3) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_GetURLProdnfo, (ARG1) , (ARG2 ) , (ARG3) ) 
#else 

typedef NPError (*NPN_GetURLUPP) (NPP instance, const char* url, const char* 
window) ; 

#define NewNPN_GetURLProc (FUNC) \ 

( (NPN_GetURLUPP) (FUNC) ) 
#define CallNPN_GetURLProc (FUNC, ARG1, ARG2 , ARG3) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3 ) ) 

#endif 



/* NPN_PostUrl */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_PostURLUPP; 
enum { 

uppNPN_PostURLProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( sizeof (NPP) ) ) 

| STACK_R0UTINE_PARAMETER(2, SIZE_CODE ( sizeof (const char*))) 

j STACK_ROUTINE_PARAMETER (3 , SIZE_CODE ( sizeof (const char*))) 

j STACK_ROUTINE_PARAMETER (4 , SIZE_CODE ( sizeof (uint32) ) ) 

j STACK_ROUTINE_PARAMETER ( 5 , SIZE_CODE ( sizeof (const char*) ) ) 

j STACK_ROUTINE_PARAMETER ( 6 , SIZE_CODE ( sizeof (NPBool )) ) 

j RESULT_SIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_PostURLP roc (FUNC) \ 

(NPN_PostURLUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_PostURLProdnf o, GetCurrentArchitecture ( ) ) 

#define CallNPN_PostURLProc (FUNC, ARG1, ARG2 , ARG3 , ARG4 , ARG5 , ARG6) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPNJPostURLProdnfo, (ARG1) , (ARG2) , (ARG3) , (ARG4) , (ARG5) , (ARG6) ) 
#else 

typedef NPError (*NPN_PostURLUPP) (NPP instance, const char* url , const char* 
window, uint32 len, const char* buf , NPBool file) ; 
#define NewNPN_PostURLProc (FUNC) \ 

( ( NPN_Po s t URLUP P ) ( FUNC ) ) 
#define CallNPN_PostURLProc (FUNC, ARG1, ARG2 , ARG3 , ARG4 , ARG5, ARG6) \ 

(* (FUNC) ) ( (ARG1) , (ARG2), (ARG3) , (ARG4), (ARG5) , (ARG6) ) 

#endif 



/* NPN_RequestRead */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_RequestReadUPP; 
enum { 

uppNPN_RequestReadProcInfo = kThinkCStackBased 

| STACK_R0UTINE_PARAMETER(1, SIZE_CODE ( sizeof (NPStream *)) ) 
j STACK_R0UTINE_PARAMETER(2, SIZE_CODE ( sizeof (NPByteRange *) ) ) 
j RESULT_SIZE (SIZE__CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_RequestReadProc (FUNC) \ 

(NPN_RequestReadUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_RequestReadProcInf o, GetCurrentArchitecture ( ) ) 
#define CallNPN_RequestReadProc (FUNC, stream, range) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_RequestReadProdnfo, (stream) , (range) ) 

#else 

typedef NPError ( *NPN_RequestReadUPP) (NPStream* stream, NPByteRange* 
rangeList) ; 

#define NewNPN_RequestReadProc (FUNC) \ 

( (NPN_RequestReadUPP) (FUNC) ) 
#define CallNPN_RequestReadProc (FUNC, stream, range) \ 



(* (FUNC) ) ( (stream) , (range) ) 



#endif 



/* NPN_NewStream */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_NewStreamUPP; 
enum { 

uppNPN_NewStreamProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1, SIZE_CODE ( sizeof (NPP) ) ) 
j STACK_ROUTINE_PARAMETER (2 , SIZE_CODE ( sizeof (NPMIMEType ) ) ) 
| STACK_R0UTINE_PARAMETER(3, SIZE_CODE ( sizeof (const char *) ) ) 
j STACK_R0UTINE_PARAMETER(4, SIZE_CODE ( sizeof (NPStream **) ) ) 
| RESULT_SIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_NewStreamP roc (FUNC) \ 

(NPN_NewStreamUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_NewStreamProdnf o, GetCurrentArchitecture ( ) ) 

#define CallNPN_NewStreamProc (FUNC, npp, type, window, stream) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_NewStreamProdnf o, (npp) , (type) , (window) , (stream) ) 

#else 

typedef NPError ( *NPN_NewStreamUPP) (NPP instance, NPMIMEType type, const char* 
window, NPStream** stream) ; 

#define NewNPN_NewStreamProc (FUNC) \ 

( (NPN_NewStreamUPP) (FUNC) ) 
#define CallNPN_NewStreamProc (FUNC, npp, type, window, stream) \ 

(* (FUNC) ) ( (npp) , (type) , (window) , (stream) ) 

#endif 



/* NPN_Write */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_writeUPP; 
enum { 

uppNPN_WriteProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , S I ZE_CODE ( sizeof (NPP) ) ) 

| STACK_ROUTINE_PARAMETER (2 , SIZE_CODE ( sizeof (NPStream *))) 

| STACK_R0UTINE_PARAMETER(3, S I ZE_CODE ( sizeof (int32) ) ) 

| STACK_ROUTINE_PARAMETER (4, SIZE_CODE ( sizeof (void*) ) ) 

| RESULT_SIZE (SIZE_CODE (sizeof (int32) ) ) 

}; 

#define NewNPN_WriteProc (FUNC) \ 

(NPN_WriteUPP) NewRoutineDescriptor ( (ProcPtr ) (FUNC), 
uppNPN_WriteProcInf o, GetCurrentArchitecture () ) 

#define CallNPN_WriteProc (FUNC, npp, stream, len, buffer) \ 

(int32) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_WriteProcInf o, (npp) , (stream) , (len) , (buffer) ) 



#else 



typedef int32 { *NPN_WriteUPP) (NPP instance, NPStream* stream, int32 len, void* 
buffer) ; 

#define NewNPN_WriteProc (FUNC) \ 

( (NPN_WriteUPP) (FUNC)) 
#define CallNPN_WriteProc (FUNC, npp, stream, len, buffer) \ 

(* (FUNC) )( (npp) , (stream), (len), (buffer)) 

#endif 



/* NPN_DestroyStream */ 
#if GENERAT INGCFM 

typedef UniversalProcPtr NPN_DestroyStreamUPP; 
enum { 

uppNPN_DestroyStreamProcInfo = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1, SIZE_CODE ( sizeof (NPP ) ) ) 
j STACK_ROUTINE_PARAMETER (2 , SIZE_CODE ( sizeof (NPStream *) ) ) 
j STACK_ROUTINE__PARAMETER (3 , SIZE_CODE ( sizeof (NPReason) ) ) 
j RESULT_SIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPN_DestroyStreamProc (FUNC) \ 

(NPN_DestroyStreamUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_DestroyStreamProcInf o, GetCurrentArchitecture () ) 

#define CallNPN_DestroyStreamProc (FUNC, npp, stream, reason) \ 

(NPError) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_DestroyStreamProcInfo, (npp) , (stream) , (reason) ) 

#else 

typedef NPError (*NPN_DestroyStreamUPP) (NPP instance, NPStream* stream, NPReason 
reason) ; 

#define NewNPN_DestroyStreamProc (FUNC) \ 

( (NPN_DestroyStreamUPP) (FUNC) ) 
#define CallNPN_DestroyStreamProc (FUNC, npp, stream, reason) \ 

(* (FUNC) ) ( (npp) , (stream) , (reason) ) 

#endif 



/* NPN_Status */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_StatusUPP; 
enum { 

uppNPN_StatusProcInfo = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER (1, SIZE_CODE (sizeof (NPP) ) ) 
j STACK_ROUTTNE_PARAMETER (2 , SIZE_CODE ( sizeof (char *) ) ) 

}; 

#define NewNPNJStatusProc (FUNC) \ 

(NPN_StatusUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_StatusProc!nf o, GetCurrentArchitecture ( ) ) 



#define CallNPN_StatusProc (FUNC, npp, msg) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPNJStatusProdnf o, (npp) , (msg) ) 

#else 

typedef void (*NPN_StatusUPP) (NPP instance, const char* message) ; 
#define NewNPN_StatusProc (FUNC) \ 

( (NPN_StatusUPP) (FUNC) ) 
#define CallNPN_StatusProc(FUNC, npp, msg) \ 

(* (FUNC) ) ( (npp) , (msg) ) 

#endif 



/* NPN_UserAgent */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_UserAgentUPP; 
enum { 

uppNPN_UserAgentProcInf o = kThinkCStackBased 

| S TAC K_ROUT I NE_PARAMETER (1, SIZE_CODE ( sizeof (NPP) ) ) 
j RESULT_SIZE (SIZE_CODE (sizeof (const char *))) 

}; 

#def ine NewNPN_UserAgentProc (FUNC) \ 

(NPN_UserAgentUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_UserAgentProdnf o, GetCurrentArchitecture ( ) ) 
#define Ca HNPN_User Agent Proc (FUNC, ARG1) \ 

(const char*) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_UserAgentProdnf o, (ARG1) ) 

#else 

typedef const char* (*NPN_UserAgentUPP) (NPP instance) ; 

#define NewNPN_User Agent Proc (FUNC) \ 

( (NPN_UserAgentUPP) (FUNC) ) 
#define CallNPN_User Agent Proc (FUNC, ARG1) \ 

(* (FUNC) ) ( (ARG1) ) 

#endif 



/* NPN_MemAlloc */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_MemAllocUPP; 
enum { 

uppNPN_MemAllocProdnfo = kThinkCStackBased 

| STACK_R0UTINE_PARAMETER(1, SIZE_CODE (sizeof (uint32) ) ) 
| RESULT_SIZE(SIZE_CODE (sizeof (void *))) 

}; 

#define NewNPN_MemAlloc Proc (FUNC) \ > 

(NPN_MemAllocUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_MemAllocProdnf o, GetCurrentArchitecture 0 ) 
#define CallNPN MemAlloc Proc (FUNC, ARG1) \ 



(void*) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_MemAllocProdnfo, (ARG1) ) 

#else 

typedef void* (*NPN_MemAllocUPP) (uint32 size) ; 
#define NewNPN_MemAllocProc (FUNC) \ 

( (NPN_MemAllocUPP) (FUNC) ) 
#define CallNPN_MemAllocProc (FUNC, ARG1) \ 

(MFUNC) ) ( (ARG1) ) 

#endif 



/* NPN MemFree */ 

#if GENERATINGCFM 

typedef UniversalProcPtr NPN_MemFreeUPP; 
enum { 

uppNPN__MemFreeProcInfo = kThinkCStackBased 

| STACK_ROUTINE PARAMETER ( 1 , SIZE CODE ( sizeof (void *))) 

}; 

#define NewNPN_MemFreeProc (FUNC) \ 

(NPN_MemFreeUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_MemFreeProdnfo, GetCurrentArchitecture ( ) ) 
#define CallNPN_MemFreeProc (FUNC, ARG1) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_MemFreeProdnfo, (ARG1) ) 

#else 

typedef void (*NPN_MemFreeUPP) (void* ptr) ; 
#define NewNPN_MemFreeProc (FUNC) \ 

( (NPN_MemFreeUPP) (FUNC) ) 
#define CallNPN_MemFreeProc (FUNC, ARG1) \ 

(* (FUNC) ) ( (ARG1) ) 

#endif 



/* NPN_MemFlush */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_MemFlushUPP; 
enum { 

uppNPN_MemFlushProdnf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE (sizeof (uint32) ) ) 
j RESULT SIZE (SIZE CODE ( sizeof (uint32 )) ) 

}; 

#define NewNPN_MemFlushProc (FUNC) \ 

(NPN_MemFlushUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_MemFlushProcInfo, GetCurrentArchitecture ( ) ) 
#define CallNPN_MemFlushProc (FUNC, ARG1) \ 



(uint32)CallUniversalProc ( (UniversalProcPtr) (FUNC) ( 
uppNPN_MemFlushProdnf o, (ARG1) ) 

#else 

typedef uint32 (*NPN_MemFlushUPP) (uint32 size) ; 
#define NewNPN_MemFlushProc (FUNC) \ 

( (NPNJVIemFlushUPP) (FUNC) ) 
ttdefine CallNPN_MemFlushProc (FUNC, ARG1) \ 

(* (FUNC) ) ( (ARG1) ) 

#endif 



/* NPN_ReloadPlugins */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_ReloadPluginsUPP; 
enum { 

uppNPN_ReloadPluginsProdnf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( sizeof (NPBool) ) ) 
j RESULT_SIZE(SIZE_CODE(0) ) 

}; 

#define NewNPN_ReloadPluginsProc (FUNC) \ 

(NPN_ReloadPluginsUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_ReloadPluginsProcInf o , GetCurrentArchi tecture ( ) ) 
#define CallNPN_ReloadPluginsProc (FUNC, ARG1) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_ReloadPluginsProdnf o, (ARG1) ) 

#else 

typedef void ( *NPN_ReloadPluginsUPP) (NPBool reloadPages) ; 
#define NewNPN_ReloadPluginsProc (FUNC) \ 

( (NPN_ReloadPluginsUPP) (FUNC) ) 
#define CallNPN_ReloadPluginsProc (FUNC, ARG1) \ 

(* (FUNC) ) ( (ARG1 ) ) 

#endif 



/* NPN_GetJavaEnv */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_Get JavaEnvUPP; 
enum { 

uppNPN_GetJavaEnvProcInfo = kThinkCStackBased 

| RESULT_SIZE (SIZE_CODE (sizeof (JRIEnv*) ) ) 

}; * 

#define NewNPN_GetJavaEnvProc (FUNC) \ 

(NPN_Get JavaEnvUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_Get JavaEnvProcInf o, GetCurrentArchi tecture ( ) ) 



#define CallNPN_Get JavaEnvProc (FUNC) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_Get JavaEnvProcInf o) 

#else . 

typedef JRIEnv* (*NPN_Get JavaEnvUPP) (void) ; 
#define NewNPN_Get JavaEnvProc (FUNC) \ 

( (NPN_GetJavaEnvUPP) (FUNC) ) 
#define CallNPN_Get JavaEnvProc (FUNC) \ 

(* (FUNC) ) () 

#endif 



/* NPN_GetJavaPeer */ 
#if GENERATINGCFM 

typedef UniversalProcPtr NPN_Get JavaPeerUPP; 
enum { 

uppNPN_GetJavaPeerProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( sizeof (NPP) ) ) 
| RESULT_SIZE(SIZE_CODE(sizeof (jref) ) ) 

}; 

#define NewNPNJ3et JavaPeerProc (FUNC) \ 

(NPN_Get JavaPeerUPP) NewRoutineDescriptor ( (ProcPtr) (FUNC) , 
uppNPN_Get JavaPeerProcInf o, GetCurrentArchitecture () ) 
#define CallNPN_Get JavaPeerProc (FUNC, ARG1) \ 

(void) CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
uppNPN_Get JavaPeerProcInf o, (ARG1) ) 

#else 

typedef jref (*NPN_Get JavaPeerUPP) (NPP instance) ; 
#define NewNPN_Get JavaPeerProc (FUNC) \ 

( (NPN_Get JavaPeerUPP) (FUNC) ) 
#define CallNPN_Get JavaPeerProc (FUNC, ARG1) \ 

(* (FUNC) ) ( (ARG1) ) 

#endif 



* The actual plugin function table definitions 

************************************************^ 
*********** J 

typedef struct _NPPluginFuncs { 
uintl6 size; 
uint!6 version; 
NPP_NewUPP newp; 



NPPJDestroyUPP destroy; 
NPP_SetWindowUPP setwindow; 
NPP_NewStreamUPP newstream; 
NP P_De s t r oy S t r e amUP P destroystream; 
NPP_StreamAsFileUPP asfile; 
NPP_WriteReadyUPP writeready; 
NPP_WriteUPP write; 
NPP__PrintUPP print; 
NPP_HandleEventUPP event; 
NPP_URLNotifyUPP urlnotify; 
JRIGlobalRef j avaClass ; 
} NPPluginFuncs; 

typedef struct _NPNetscapeFuncs { 

uintl6 size; 

uintl6 version; 

NPN_GetURLUPP geturl; 

NPN_PostURLUPP posturl; 

NPN_RequestReadUPP reques tread; 

NPN_NewStreamUPP newstream; 

NPN_WriteUPP write; 

NPN_DestroyStreamUPP destroystream; 

NPN_StatusUPP status; 

NPN_UserAgentUPP uagent; 

NPN_MemAllocUPP memalloc; 

NPN_MemFreeUPP memfree; 

NPN_MemFlushUPP memflush; 

NPN_ReloadPluginsUPP reloadplugins ; 

NPN_GetJavaEnvUPP getJavaEnv; 

NPN_Get JavaPeerUPP getJavaPeer; 

NPN_GetURLNotifyUPP geturlnotif y ; 

NPN_Po s tURLNot i f yUPP pos t ur 1 not i f y ; 
#ifdef XP_tJNIX 

NPN_GetValueUPP getvalue; 
#endif /* XP_UNIX */ 
} NPNetscapeFuncs ; 



#ifdef XP_MAC 

* Mac platform-specific plugin glue stuff 

********************************************** 
*********** j 

/* 

* Main entry point of the plugin. 

* This routine will be called when the plugin is loaded. The function 

* tables are passed in and the plugin fills in the NPPluginFuncs tabl 

* and NPPShutdownUPP for Netscape's use. 
*/ 

#if GENERATINGCFM 

typedef UniversalProcPtr NPP_MainEntryUPP; 



enum { 

uppNPP_MainEntryProcInf o = kThinkCStackBased 

| STACK_ROUTINE_PARAMETER ( 1 , SIZE_CODE ( sizeof (NPNetscapeFuncs* } ) ) 
| STACK_R0UTINE_PARAMETER(2 / SIZE_CODE ( sizeof (NPPluginFuncs * ) ) ) 
| STACK_ROUTINE_PARAMETER (3 , SIZE_CODE { sizeof (NPP_ShutdownUPP* ) ) ) 
| RESULTJSIZE (SIZE_CODE (sizeof (NPError) ) ) 

}; 

#define NewNPP_MainEntryProc (FUNC) \ 

(NPP_MainEntryUPP) NewRoutineDescriptor ( (ProcPtr ) (FUNC), 
uppNPP_MainEntryProdnf o, GetCurrentArchitecture ( ) ) 

#define CallNPP^MainEntryProc (FUNC, netscapeFunc, pluginFunc, shutdownUPP) 

\ 

CallUniversalProc ( (UniversalProcPtr) (FUNC) , 
(Proclnf oType) uppNPP_MainEntryProdnf o, (netscapeFunc) , (pluginFunc) , 
(shutdownUPP) ) 

#else 

typedef NPError (*NPP_MainEntryUPP) (NPNetscapeFuncs*, NPPluginFuncs*, 
NPP_ShutdownUPP*) ; 

#define NewNPP_MainEntryProc (FUNC) \ 

( (NPP_MainEntryUPP) (FUNC) ) 
#define CallNPP_MainEntryProc (FUNC, netscapeFunc, pluginFunc, shutdownUPP) 

\ 

(* (FUNC) ) ( (netscapeFunc) , (pluginFunc) , (shutdownUPP) ) 

#endif 

#endif /* MAC */ 



#ifdef _WINDOWS 

#ifdef cplusplus 

extern "C" { 
#endif 

/* plugin meta member functions */ 

NPError WINAPI NP_GetEntryPoints (NPPluginFuncs* pFuncs); 

NPError WINAPI NP_Init ialize (NPNetscapeFuncs* pFuncs) ; 

NPError WINAPI NP_Shutdown ( ) ; 

#ifdef cplusplus 

} 

#endif 

#endif /* _WINDOWS */ 

#ifdef XP_UNIX 

#ifdef cplusplus 

extern "C" { 
#endif 



/* plugin meta member functions */ 



char* NP_GetMIMEDescription (void) ; 

NPError NP_Initialize (NPNetscapeFuncs* , NPPluginFuncs* ) ; 

NPError NP_Shutdown (void) ; 

#ifdef cplusplus 

} 

#endif 

#endif /* XP_UNIX */ 
#endif /* NPUPP_H_ */ 



#include <stdio .h> 
//#if defined (_WIN32) X M 
//#else 

//#include <dlfcn.h> 
//#endif 

#include "npupp.h" 
#include <tcl.h> 

extern Tcl_HashTable *dlopen_hashtablePtr ; 

initPlugin (void *handle) { 

NPNetscapeFuncs netscapeFuncs; 
char f [8] ; 

NPPluginFuncs pluginFuncs; 
int err; 

pluginFuncs . size = sizeof (NPPluginFuncs) ; 
pluginFuncs .version = 9; 
pluginFuncs . newp = 0; 

printf { "Sizeof Plugin: %d netscapeFuncs: %d\n ,, / sizeof (pluginFuncs) , 
sizeof (netscapeFuncs) ) ; 

netscapeFuncs . size = sizeof (NPNetscapeFuncs) ; 

netscapeFuncs .version = 9; 

netscapeFuncs . geturl = 0; 

printf ("set sizes\n"); f flush (stdout) ; 

printf ("start init\n"); f flush (stdout ) / 

err = NP_Initialize (&netscapeFuncs , ^pluginFuncs) ; 
printf ( "doneinit : %d\n" , err); f flush (stdout ) ; 
// NP_GetEntryPoints ( &pluginFuncs ) ; 

printf ( "\nHANDLE : %xx size: %d version: %d newp: %d\n" # handle, 
pluginFuncs . size , pluginFuncs .version, pluginFuncs . newp) ; 

printf ( "\nHANDLE : %xx size: %d version: %d geturl: %d\n", handle, 
netscapeFuncs . size, netscapeFuncs .version, netscapeFuncs . geturl) ; 

} 



/* 

* plugextl.O is a compiled version of plugext for Tel. 

* -- Clif Fl'ynt <clif @cf lynt . com> Jan 3, 1999 

* 

* Modified from get.c by 

* Jean-Claude Wippler < j cw@equi4 . com> , September 17, 1998. 
*/ 

#if defined (_WIN32) 
#include <windows . h> 
#endif 

#include <stdlib. h> 
#include <stdio.h> 
#include <ctype.h> 
#if defined (_WIN32) A M 
#else 

#include <dlf cn . h> 
#endif 

tinclude "npupp.h" 
#include "NPN_wrapper . h" 
#include "plugext Int . h" 

extern Tcl_HashTable *dlopen_hashtablePtr ; 
Tcl_HashTable *plugext_hashtablePtr ; 

/* If plugextDebugPrint ! - 0, then debugprt will print debugging info */ 
/* This value is set with the default subcommand function debug */ 

int plugextDebugPrint = 0; 

/* This is used to create unique names for un-named plugins */ 
static int plugextID = 0; 

#if defined (_WIN32) 

#define WINEXPORT(t) declspec (dllexport ) t 

#eli£ defined <_WIN) 

#define WINEXPORT(t) t _export 
#else 

#define WINEXPORT(t) t 
#endif 

#if defined ( MWERKS ) 

#pragma export on 
#endif 

FILE *logFl = NULL; 

WINEXPORT ( int ) Plugext_Init (Tcl_Interp* interp) 
{ 

logFl = f open { "LOGFL" , "w"); 

fprintf (logFl, "Hit Plugext_Init\n" ) ; f flush (stdout) / 

Tcl_CreateObj Command (interp, "plugext", (Tcl_ObjCmdProc *) plugext_Cmd, 0, 

0) ; 

Tcl_PkgProvide { interp , "plugext " , "1.0"); 



plugext_hashtablePtr = initHashTable ( ) ; 



fprintf (logFl, "Leaving Plugext_Init\n" ) ; f flush (stdout) ; 
return TCL_OK; 

} 

WINEXPORT (int) Plugext_Saf elnit (Tcl_Interp* interp) 
{ 

return Plugext_Init (interp) ; 

} 

/* 

/* 

* Define the sub commands 
★ 

* These strings define the subcommands that the plugext command 

* supports . 
★ 

* To add a new subcommand, add the new subcommand string, 

* #define and entry in cmdDef inition 

* 

* Note: Order is important. 

* These are the subcommands that will be recognized 
*/ 

static char *subcommands [] = { 

"create", "debug", "bogus", NULL}; 

/* 

* These #defines define the positions of the subcommands. 

* You can use enums if you are certain your compiler will provide the 

* same numbers as this. 
*/ 

#define M_create 0 
#define M_debug 1 
#define M_bogus 2 

/* 

* The cmdDef inition structure describes the minimum and maximum number 

* of expected arguments for the subcommand (including cmd and subcommand 

* names) , and a usage message to return if the argument 

* count is outside the expected range. 
*/ 

static cmdDef inition definitions [] = { 
{"create ?name? -path path", 3 , 7}, 
{"debug 0/1", 3,3}, 
{"bogus bogusval", 3, 3} 



/* C++ Comment 

// These are the segments that need to be declared in the "C" namespace 

// These function names and data will be accessed by programs in the 

// Tel "C" language library. 
*/ 

/* */ 

/* 

* 

★ 

* plugext_Cmd 
★ 

* plugext_Cmd is invoked to process the "plugext" Tel command. 

* It will parse a subcommand, and perform the requested action. 
* 

* Results: 

* A standard Tel result. 
★ 

* Side effects: 
* 

★ 

*/ 

// WINEXPORT ( int ) 

int plugext_Cmd (ClientData plugext, 
Tcl_Interp *interp, 
int objc, 

Tcl_Obj *objv[]) { 

/* ClientData plugext; 

/* Tcl_Interp *interp; 

/* int objc; 

/* Tcl_Obj *CONST objv[] ; 

int cmdnum; 
int result; 
Tcl_Obj *returnValue; 
CmdReturn *returnStruct ; 

/* 

* Initialize the return value 
*/ 

returnValue = NULL; 
returnStruct = NULL; 

/* 

* Check that we have at least a subcommand, 

* else return an Error and the usage message 
*/ 

if (objc < 2) { 

Tcl_WrongNumArgs (interp, 1, objv, 

"subcommand ?plugextID? ?fieldName? ?f ieldValue? " ) ; 
return TCL_ERROR ; 

} 



/* Not used. */ 
/* Current interpreter. */ 
/* Number of arguments. */ 
/* Argument objects. */ 



/* 

* Find this plugext subcommand in the list of subcommands: 

* Tcl_GetIndexFromObj returns the offset of the recognized string, 

* which is used to index into the command definitions table. 
*/ 

result = Tcl__GetIndexFromObj (interp, objv[l], subcommands, 

"subcommand", TCL_EXACT, fccmdnum) ; 

/* 

* If the result is not TCL_OK, then the error message is already 

* in the Tel Interpreter, this code can immediately return. 
*/ 

if (result != TCL_OK) { 
return TCL_ERROR; 

} 

/* 

* Check that the argument count matches what's expected for this 

* Subcommand . 

*/ 

if ({objc < definitions [cmdnum] .minArgCnt) || 
(objc > definitions [cmdnum] .maxArgCnt) ) { 

Tcl_WrongNumArgs (interp, 1, objv, definitions [cmdnum] .usage); 
return TCL_ERROR; 

} 



result = TCL_OK; 
/* 

* The subcommand is recognized, and has a valid number of arguments 

* Process the command. 
*/ 

switch (cmdnum) { 
case M_debug: { 
char *tmp; 

tmp = Tcl_GetStringFromObj (objv [2] , NULL); 

if (TCL_OK != Tcl_GetInt (interp, tmp, fcplugextDebugPrint ) ) { 
return (TCL_ERROR) ; 

} 

break; 

} 

case M_create : { 

returnStruct = 

plugext_createCmd ( (ClientData) NULL, interp, objc, objv); 
break; 

} 

default: { 

char error [80] ; 

sprintf (error, "Bad sub-command %s. Has no entry in switch", 

Tcl_GetStringFromObj (objv [1] , NULL) ) ; 
returnValue = Tcl_NewStringObj (error, -1) ; 



result = TCL_ERROR; 

} 

} 

/* 

* Extract an object to return 

* returnStruct will be NULL if 

* function and no other funct 
*/ 



from returnStruc. 

the processing is done in this 
ion is called. 



if (returnStruct != NULL) { 

returnValue = returnStruct- >object ; 
result = returnStruct- >status; 
Tcl_Free ((char *) returnStruct) ; 

} 

/* 

* Set the return value and return the status 
*/ 

if (returnValue != NULL) { 

Tcl_SetObj Result (interp, returnValue) ; 

} 

MyPrint ( "leaving plugext Cmd\n"); f flush (stdout) ; 



return result; 

} 



/* */ 

/* 

* int plugext_loadInit (Tcl_Interp *interp, char *hashName)-- 

* Initializes the pluginData structure - 

* assigns values to NPNetscapeFuncs and NPPluginFuncs 

* Arguments: 

* interp The tcl interpreter state pointer 

* hashName The key for the hashed PluginData object 
* 

* Results: 

* Function Pointers are up to date. 
* 

* Side Effects: 
* 

---*/ 

int plugext_loadInit (Tcl_Interp *interp, char *hashName) { 
int err; 

NPNetscapeFuncs *netscapeFuncs ; 
NPPluginFuncs *pluginFuncs ; 
PluginData *pluginData; 

NPError (*init) () ; /* The initialize function */ 

NPError (*getent) () ; /* The NPJSetEntryPoints function */ 

pluginData = (PluginData *) getHashDat a (interp, hashName, 
plugext_hashtablePtr) ; 



if (pluginData == NULL) { 
return TCL_ERROR; 

} 

// Initialize these. We'll be using them later, 
init = getent = NULL; 
err = 0; 

pluginData->childList = Tcl_NewListObj (0, NULL) ; 

netscapeFuncs = & (pluginData->netscapeFuncs) ; 
pluginFuncs = & (pluginData->pluginFuncs) ; 

pluginFuncs->size = sizeof (NPPluginFuncs) ; 
pluginFuncs ->version = 9; 
pluginFuncs ->newp = 0; 

netscapeFuncs->size = sizeof (NPNetscapeFuncs) ; 
netscapeFuncs ->version = 9; 
netscapeFuncs- >geturl = 0; 

/* 

* NP_GetEntryPoints must be called first 

* initialize the netscapeFuncs structure, then the data is moved. 

* to a static 'safe' spot in the call to NP_Initialize . This is 

* not obvious from the docs (or just plain wrong.) (It's clear 

* in the Netscape ONE book. Not the online docs or Programming .. Plugins ) 
*/ 

setPlugextEntryPoints (netscapeFuncs) ; 

MyPrint ("\naddr : %xx size: %d version: %dnewp: %xx\n'\ pluginFuncs, 
pluginFuncs->size, pluginFuncs - >version , pluginFuncs- >newp) ; 

MyPrint ("\naddr: %xx size: %d version: %d geturl : %xx\n", netscapeFuncs, 
netscapeFuncs - >size , netscapeFuncs - >version, netscapeFuncs - >geturl ) / 



#if defined (_WIN32) 

init = (NPError (*)()) Get ProcAddress (pluginData- >dlopenHandle, 
M NP_Initialize M ) ; 

if (init == NULL) { 

init = (NPError (*)()) GetProcAddress (pluginData- >dlopenHandle, 
"NP^Pluginlnit") ; 

} 

getent = (NPError (*)()) GetProcAddress (pluginData- >dlopenHandle, 
"NP_GetEntryPoints") ; 
#else 

init =* dlsym (pluginData- >dlopenHandle , "NP_Initialize" ) / 
if (init == NULL) { 

init = dlsym (pluginData- >dlopenHandle, "NP_PluginUnixInit M ) ; 

#endif 

if (init == NULL) { 

// dprintf ("FAILED dlsym: %s\n" , dlerrorO); 
setErrorReturns (interp, 

"Unable to load plugin. Can't find NP_Initialize\n" , NULL, NULL, NULL, 



"Unable to load plugin. Can't find NP_Initialize\n" , NULL, NULL, NULL, 
M plugext_loadInit" , "510") ; 
// return TCL_ERROR ; 

} 

#if defined (_WIN32) 

getent = (NPError (*)<)) GetProcAddress (pluginData- >dlopenHandle , 
"NP_GetEntryPoints") ; 

if (getent == NULL) { 

setErrorReturns (interp, 

"Unable to load plugin. Can't find NP_GetEntryPoints\n" , NULL, 
NULL, NULL, 

"Unable to load plugin. Can't find NP_GetEntryPoints\n" , NULL, 
NULL, NULL, 

"plugext_loadInit" , "511") ; 
// dprintf ( "FAILED dlsym: %s\n", dlerrorO); 
return TCL_ERR0R ; 

} 

if (getent != NULL ) { 
fprintf (logFl, "getent next\n") ; f flush (stdout) ; 

err = getent (pluginFuncs ) ; 
fprintf (logFl, "getent DONE :err %d\n", err); f flush ( stdout ) ; 
if (err != NPERR_NO_ERROR) { 
return TCL_ERROR ; 

} 

} 

fprintf (logFl, "init next\n"); f flush (stdout) ; 

if ((init != NULL) && (err == NPERR_N0_ERR0R) ) { 
err = init (netscapeFuncs ) ; 

} 



#else 

if (getent != NULL ) { 
fprintf (logFl, "init DONE - getent next\n n ); f flush (stdout ) ; 

err = getent (pluginFuncs) ; 
fprintf (logFl, "getent DONE \n"); f flush (stdout ) ; 

} 

if ((init != NULL) && (err ==0)) { 

err = init (netscapeFuncs , pluginFuncs); 

} 

#endif 

if (err != NPERR_NO_ERROR) { 
return TCL_ERROR ; 

.} 

fprintf (logFl, "init done\n M ); f flush (stdout) ; 

MyPrint("\n size: %d version: %d newp: %xx\n", pluginFuncs->size , 
pluginFuncs ->version, pluginFuncs ->newp) ; 



MyPrint ( "\n size: %d version: %d geturl : %xx\n" ( netscapeFuncs- >size , 
netscapeFuncs->version, netscapeFuncs->geturl) ; 



} 



MyPrint ("Blowing this popsicle stand: loadInit\n" ) ; f flush (stdout) ; 
return TCL OK; 



/* 

* CmdReturn *plugext_createCmd ()-- 

* Loads a plugin.so file. 

* Initializes the Function pointer tables. 

* Creates a new command to access the new plugin. 

* Arguments 



* objv[0] 

* objv[l] 

* objv[2] 

* objv[3] 

* objv[4] 



"plugext" 
"create" 
?pluginID? 
"-path" 

"path/ to/plugin . so" 



* Results 

* Creates a new hash entry. Sets error if entry already exists. 

* Side Effects: 

* None 

CmdReturn *plugext_createCmd (ClientData info, 

Tcl_Interp *interp, 
int objc, 

Tcl_Obj *objv[]) { 
Tcl_HashEntry *hashEntryPtr ; 
CmdReturn *returnStructPtr ; 
char *returnCharPtr = NULL; 
Tcl_Obj *returnObjPtr = NULL; 



// char *hashKeyPtr; 
int isNew; 
char hashName [80] ; 
PluginData *pluginData; 



char *pluginPath; 
char *tmp; 
int i ; 



/* If the first arg starts with a its a flag and there is no 

* hardcoded ID name (we choose one) . If not, we grab that name. 
*/ 

tmp = Tcl_GetStringFromObj (objv [2] , NULL) ; 

if (*tmp !=•-'){ 

strcpy (hashName, Tcl_GetStringFromObj (objv [2] , NULL) ) ; 
} else { 

sprintf (hashName, ,, %s%d" , "plugext", plugextID+ + ) ; 

} 



/* 



* Print that the function was called for debugging 
*/ 



MyPrint ( "plugext_createCmd called with %d args : hashName: %s\n", objc, 
hashName) ; 

/* 

* create a return structure . 
*/ 

returnStructPtr = (CmdReturn *) makeCmdReturn ( ) ; 

/* Initialize these parameters before we check for program settings */ 

pluginPath = NULL; 

for (i=0; i<objc; i++) { 

if ( !strcmp( n -path", Tcl_GetStringFromObj (objv [i] , NULL))) { 
char *tmp; 
i + +; 

tmp = Tcl_GetStringFromObj (objv [i] , NULL); 
pluginPath = Tcl_Alloc (strlen (tmp) +1 ) ; 
strcpy (pluginPath, tmp); 

} 

} 

if (pluginPath ^== NULL) { 
setErrorReturns (interp, 

"pluginName create must include -path", "", "", "", 
"No -path option", » » , "", "", 
"pluginName create", "501"); 

returnStructPtr- >status = TCL_ERR0R; 
goto done; 

} 

/* 

* Extract the string representation of the object argument, 

* and use that as a key into the hash table . 
* 

* If this entry already exists, complain. 
*/ 

hashEntryPtr = Tcl_CreateHashEntry (plugext_hashtablePtr , hashName, &isNew) ; 

if ( ! isNew) { 

setErrorReturns (interp, 

"Plugin named \"%s\" already exists. \n" , hashName, "", "", 
"plugin with this name exists", "", "", " " , 
"plugext create", "500"); 

MyPrint ( "failed on isNew"); 

returnStructPtr- >status = TCL_ERR0R ; 
goto done; 

} 



/* 

* If we are here, then the key is unused. 

* Get the string representation from the object, 

* and make a copy that can be placed into the hash table. 
*/ 

fprintf (logFl, "SIZE of PluginData: %d NPN : %d NPP: %d\n" , 

sizeof (PluginData) , sizeof (NPNetscapeFuncs) , sizeof (NPPluginFuncs) ) ; 

pluginData = (PluginData *) Tcl_Alloc (sizeof (PluginData) ) ; 
Tcl_SetHashValue (hashEntryPtr, pluginData) ; 

// dprintf ("dlopen Next!: %s :: %xx :: %xx \n n , pluginPath, NP_Initialize , 
NPP_New) ; 

{ 

char *tmp; 

tmp = strrchr (pluginPath, '/'); 
if (tmp == NULL) { 

tmp = strrchr (pluginPath, '\\'); 

} 

if (tmp == NULL) { 

tmp = pluginPath; 

} 

pluginData- >DLLname = tmp; 
} 

#if defined (_WIN32) 

pluginData- >dlopenHandle = LoadLibrary (pluginPath) ; 
fprintf (logFl, "LoadLib: %xx\n", pluginData- >dlopenHandle) ; 
fprintf (logFl, "DLLNAME : : %s\n", pluginData- >DLLname) ; 
fprintf (stderr, "LoadLib: %xx\n", pluginData- >dlopenHandle) ; 

{ 

HMODULE hModule; 
char name [2 55] ; 
DWORD hlnfo; 
DWORD dwLen; 

struct { 

WORD first; 

WORD second; 
} *lpBuffer; 



hModule = GetModuleHandle (pluginData- >DLLname) ; 

if (hModule == NULL) { 

setErrorReturns (interp, 

"Failed to get Module Handle for: %s\n", pluginData- >DLLname, 
NULL, NULL, 

"Failed to get Module Handle for: %s\n", pluginData- >DLLname, 
NULL , NULL , 

"plugextName_create" , "515") ; 
// returnStructPtr->status = TCL_ERROR; 
pluginData- >VersionData = (void *)Tcl Alloc (8); 



strcpy (pluginData->VersionData, "-1.0") ; 
} else { 



GetModuleFileName (hModule , name, 255); 

dwLen = GetFileVersionlnf oSize (name , &hlnf o) ; 

if (dwLen == 0) { 

setErrorReturns (interp, 

"Failed to get dwLen", NULL, NULL , NULL , 

"Failed to get dwLen", NULL, NULL, NULL, 

"plugextName_getmimeCmd" , "515") ; 
returnStructPtr->status = TCL_ERR0R; 
goto done; 

} 

pluginData- >VersionData = (void * ) Tcl_Alloc (dwLen) ; 

GetFileVersionlnf o (name, hlnfo, dwLen, pluginData- >VersionData) ; 

VerQueryValue (pluginData- >VersionData , "\\VarFileInf o\\Translation" , 
(LPVOID*) fclpBuf fer, (unsigned int *) &dwLen) ; 



if (dwLen == 0) { 

setErrorReturns (interp, 

"Failed to get second dwLen" , NULL, NULL, NULL, 

"Failed to get second dwLen", NULL, NULL, NULL, 

"plugextName_getmimeCmd" , "516") ; 

returnStructPtr->status = TCL_ERROR; 
goto done; 

} 
} 
} 

#else 

pluginData- >dlopenHandle = dlopen (pluginPath, RTLD_N0W | RTLD_GLOBAL) ; 
if (pluginData ->dlopenHandle == NULL) { 
setErrorReturns (interp, 

"Unable to load %s.\n %s\n", pluginPath, dlerrorO, NULL, 
"Unable to load %s.\n %s\n", pluginPath, dlerrorO, NULL, 
"plugext_createCmd" , "512") ; 
returnStructPtr->status = TCL_ERROR ; 
goto done; 

} 

#endif 

// dprintf ("dlopen DONE!: %s :: %xx :: %xx \n" , pluginPath, NP_Initialize , 
NPP_New) ; 

//dprintf ("dlopen DONE!: %s :: %xx :: %xx \n", pluginPath, dlsym (pluginData - 
>dlopenHandle, "NP_Initialize " ) , dlsym (pluginData- >dlopenHandle , "NPP_New")) ; 



MyPrintC'set functPtr: %xx\n", pluginData); 
/* Initialize the function pointers */ 

returnStructPtr->status = plugext_load!nit (interp, hashName) ; 



if (returnStructPtr->status != TCLJDK) {goto done;} 
done : 

if (returnStructPtr->status == TCL_OK) { 
returnCharPtr = hashName; 
Tcl_CreateOb j Command ( interp , hashName , 

(Tcl_ObjCmdProc *) plugextName_Cmd, 0, 0) ; 
} else { 

returnCharPtr = "Failed to Load extension" / 

} 

if ( (returnObjPtr == NULL) ) { 

returnObjPtr = Tcl_NewStringObj (returnCharPtr, -1) ; 

} 

returnStructPtr->object = returnObjPtr; 

MyPrint { "Leaving plugext createCmd \n" ); f flush (stdout) ; 
return returnStructPtr ; 

} 



I * * 

NPError NP_L0ADDS NPP_New (NPMIMEType pluginType, NPP instance, 

uintl6 mode, intl6 argc, char* argn[], 
char* argv[], NPSavedData* saved) { 
fprintf (logFl , "This is a NEW dummy NPP_New to be overwritten\n" ) ; 

} 

NPError NP_Initialize ( 

NPNetscapeFuncs *netscapeFuncs , 
NPPluginFuncs *pluginFuncs ) { 

fprintf {logFl , "This is a NEW dummy NP_Initialize to be overwritten\n" ) ; 

} 



# Microsoft Developer Studio Project File - Name= "plugext " - Package 0wner^<4> 

# Microsoft Developer Studio Generated Build File, Format Version 5.00 

# * * DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 
CFG=plugext - Win32 Debug 

! MESSAGE This is not a valid makefile. To build this project using NMAKE, 
! MESSAGE use the Export Makefile command and run 
! MESSAGE 

! MESSAGE NMAKE /f "plugext . mak" . 
! MESSAGE 

! MESSAGE You can specify a configuration when running NMAKE 

! MESSAGE by defining the macro CFG on the command line. For example: 

! MESSAGE 

! MESSAGE NMAKE ft "plugext . mak" CFG= "plugext - Win32 Debug" 
! MESSAGE 

! MESSAGE Possible choices for configuration are: 
! MESSAGE 

! MESSAGE "plugext - Win32 Release" (based on\ 

"Win32 (x86) Dynamic-Link Library") 
! MESSAGE "plugext - Win32 Debug" (based on "Win32 (x86) Dynamic -Link Library") 
! MESSAGE 

# Begin Project 

# PROP Scc_ProjName 

# PROP Scc_LocalPath "" 
CPP=cl.exe 

MTL=midl . exe 
RSC=rc .exe 

!IF "$(CFG)" == "plugext - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 

# PROP Output_Dir "Release" 

# PROP Intermediate_Dir "Release" 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MT /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX 
/FD /c 

# ADD CPP /nologo /MT /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX /FD 
/c 

# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32 

# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32 

# ADD BASE RSC /l 0x4 0 9 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 



# ADD BASE LINK32 kernel32 . lib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib 
/nologo /subsystem: windows /dll /machine : 13 86 

# ADD LINK32 kernel32.1ib user32 . lib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib 
/nologo /subsystem: windows /dll /machine : 1386 

iELSEIF "$(CFG) M == "plugext - Win32 Debug" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug__Libraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Ignore_Export_Lib 0 

# PROP Target_Dir 

# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D 
"_WINDOWS" /YX /FD /c 

# ADD CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /I "C:\tcl805\include" /D "WIN32" /D 
" _DEBUG " /D "_WINDOWS" /YX /FD /c 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o NUL /win32 

# ADD MTL /nologo /D "_DEBUG" /mktyplib2 03 /o NUL /win32 

# ADD BASE RSC /l 0x4 0 9 /d "_DEBUG" 

# ADD RSC /l 0x409 /d "_DEBUG n 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib 
/nologo /subsystem: windows /dll /debug /machine : 13 86 /pdbtype : sept 

# ADD LINK32 kernel32 . lib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib 
C:\tcl805\lib\tcl80.1ib C:\tcl805\lib\tk80.1ib version. lib /nologo 
/subsystem: windows /dll /debug /machine : 1386 /pdbtype : sept 



! END I F 



# Begin Target 



# Name "plugext - Win32 Release" 

# Name "plugext - Win32 Debug" 

# Begin Source File 



SOURCE= . \extensionLib. c 

# End Source File 

# Begin Source File 

SOURCE= . \extensionLib . h 

# End Source File 

# Begin Source File 



SOURCE= . \NPN_wrapper . c 



# End Source File 

# Begin Source File 

SOURCE= . \NPN_wrapper . h 

# End Source File 

# Begin Source File 

SOURCE= . \npupp . h 

# End Source File 

# Begin Source File 

SOURCE= . \plugext . c 

# End Source File 

# Begin Source File 

SOURCE= . \plugextCmd . c 

# End Source File 

# Begin Source File 

SOURCE= . \plugextCmdAZ . 

# End Source File 

# Begin Source File 

SOURCE= . \plugextlnt . h 

# End Source File 

# Begin Source File 

SOURCE= . \plugInstCmd . c 

# End Source File 

# Begin Source File 

SOURCE= . \plugInstCmdAZ 

# End Source File 

# Begin Source File 

SOURCE=.\tcl805.h 

# End Source File 

# End Target 

# End Project 



Microsoft Developer Studio Workspace File, Format Version 5.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

############################################################################### 

Project: "plugext "= . \plugext . dsp - Package Owner=<4> 

Package=<5> 

{{{ 
}}} 

Package=<4> 

{{{ 

############################################################################### 

Global : 

Package=<5> 

{{{ 
}}} 

Package=<3> 

{{{ 
}}} 

############################################################################### 



# Microsoft Developer Studio Generated NMAKE File, Based on plugext.dsp 
!IF "${CFG) " — "" 

CFG=plugext - Win32 Debug 

! MESSAGE No configuration specified. Defaulting to plugext - Win32 Debug. * 
! ENDIF 

!IF "$(CFG) M != "plugext - Win32 Release" && "$(CFG)" (=\ 

"plugext - Win32 Debug" 
! MESSAGE Invalid configuration M $(CFG) M specified. 
(MESSAGE You can specify a configuration when running NMAKE 
(MESSAGE by defining the macro CFG on the command line. For example: 
(MESSAGE 

(MESSAGE NMAKE /f "plugext . mak" CFG= "plugext - Win32 Debug" 
(MESSAGE 

(MESSAGE Possible choices for configuration are: 
(MESSAGE 

(MESSAGE "plugext - Win3 2 Release" (based on\ 

"Win32 (x86) Dynamic-Link Library") 
(MESSAGE "plugext - Win32 Debug" (based on "Win32 <x86) Dynamic-Link Library") 
(MESSAGE 

(ERROR An invalid configuration is specified. 
(ENDIF 

(IF "$(0S)" == "Windows_NT n 
NULL= 
(ELSE 
NULL=nul 
1 ENDIF 

CPP=cl .exe 
MTL=midl .exe 
RSC=rc.exe 

(IF "$(CFG) M "plugext - Win32 Release" 

OUTDIR=.\Release 
INTDIR= . \Release 

# Begin Custom Macros 
OutDir= . \Release 

# End Custom Macros 

(IF "$ (RECURSE) " == "0" 
ALL : "$ (OUTDIR) \plugext.dll" 
(ELSE 

ALL : "$ (OUTDIR) \plugext .dll" 
1 ENDIF 
CLEAN : 

-©erase "$ (INTDIR) \extensionLib . obj " 
-©erase " $ ( INTDIR) \NPN_wrapper . obj " 
-©erase "$ (INTDIR) \plugext . obj " 
-©erase "$ (INTDIR) \plugextCmd . obj " 
-©erase "$ (INTDIR) \plugextCmdAZ . obj " 



-©erase " $ ( INTDIR) \plugInstCmd . obj " 

-©erase " $ ( INTDIR) \plugInstCmdAZ . obj " 

-©erase " $ ( INTDIR) \vc5 0 . idb" 

-©erase '■$ (OUTDIR) \plugext.dll" 

-©erase "$ (OUTDIR) \plugext . exp" 

-©erase " $ (OUTDIR) \plugext . lib" 

"$ (OUTDIR)" : 

if not exist " $ (OUTDIR) / $ (NULL) " mkdir "$ (OUTDIR)" 

CPP_PROJ=/nologo /MT /W3 /GX 1 02 /D "WIN32" /D "NDEBUG " /D "_WINDOWS"\ 

/Fp"$ (INTDIR) \plugext. pen" /YX /Fo" $ (INTDIR) \\ " /Fd" $( INTDIR) \\ » /FD /c 
CPP_OBJS= . \Release/ 
CPP_SBRS=. 

MTL_PROJ=/nologo /D "NDEBUG" /mktyplib203 /o NUL /win32 
BSC32=bscmake . exe 

BSC32_FLAGS=/nologo /o"$ (OUTDIR) \plugext . bsc " 
BSC32_SBRS= \ 

LINK32=link.exe 

LINK32_FLAGS=kernel32 . lib user32.1ib gdi32.1ib winspool.lib comdlg32 . lib\ 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib\ 
odbccp32.1ib /nologo /subsystem : windows /dll /incremental : no\ 
/pdb: "$ (OUTDIR) \plugext .pdb" /machine : 1386 /out: "$ (OUTDIR) \plugext . dll " \ 
/implib: "$ (OUTDIR) \plugext . lib" 
LINK32_OBJS= \ 

"$ (INTDIR) \extensionLib. obj " \ 

"$ (INTDIR) \NPN_wrapper. obj " \ 

"$ (INTDIR) \plugext. obj " \ 

"$ (INTDIR) \plugextCmd. obj " \ 

"$ (INTDIR) \plugextCmdAZ. obj " \ 

"$ (INTDIR) \plugInstCmd. obj" \ 

"$ (INTDIR) \plugInstCmdA2.obj " 

"$ (OUTDIR) \plugext.dll" : "$(OUTDIR)" $ (DEF_FILE) $ (LINK32_OBJS) 
$(LINK32) ©<< 
$ (LINK32_FLAGS) $ (LINK32_OBJS ) 

<< 

\ ELSEIF "$(CFG) n == "plugext - Win32 Debug" 

OUTDIR= . \Debug 
INTDIR= . \Debug 

# Begin Custom Macros 
OutDir= . \Debug 

# End Custom Macros 

!IF "$ (RECURSE) " == "0" 
ALL : "$ (OUTDIR) \plugext.dll" 
! ELSE 

ALL : "$ (OUTDIR) \plugext.dll" 



! ENDIF 



CLEAN : 

-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 
-©erase 



"$ (INTDIR) 
"$ (INTDIR) 
M $ (INTDIR) 
H $ (INTDIR) 
"$ (INTDIR) 
"$ (INTDIR) 
"$ (INTDIR) 
"$ (INTDIR) 
"$ (INTDIR) 
M $ (OUTDIR) 
"$ (OUTDIR) 
M $ (OUTDIR) 
"$ (OUTDIR) 
M $ (OUTDIR) 



\extensionLib . ob j " 
\NPN__wrapper . ob j " 
\plugext .obj " 
\plugextCmd . obj " 
\plugextCmdAZ . obj " 
XpluglnstCmd.obj " 
\plugInstCmdAZ . obj " 
\vc50 . idb" 
\vc50 .pdb" 
\plugext.dll" 
\plugext . exp " 
\plugext . ilk" 
\plugext .lib" 
\plugext .pdb " 



(OUTDIR) " : 

if not exist "$ (OUTDIR) /$ (NULL) " mkdir »$ (OUTDIR) 



CPP_PROJ=/nologo /MTd /W3 /Gm /GX /Zi /Od /I "C:\tcl805\include" /D "WIN32 " /D\ 
"_DEBUG" /D n _WINDOWS" /Fp"$ ( INTDIR) \plugext .pen" /YX /Fo" $( INTDIR) \ \ " \ 
/Fd " $ ( INTDIR) \ \ " /FD /c 

CPP_OBJS=.\Debug/ 

CPP_SBRS=. 

MTL_PROJ=/nologo /D "_DEBUG" /mktyplib2 03 /o NUL /win32 
BSC32=bscmake . exe 

BSC32_FLAGS=/nologo /o n $ (OUTDIR) \plugext . bsc " 
BSC32_SBRS= \ 

LINK32=link.exe 

LINK32_FLAGS=kernel32 . lib user32.1ib gdi32.1ib winspool.lib comdlg32 . lib\ 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib\ 
odbccp32.1ib C:\tcl805\lib\tcl80.1ib C:\tcl805\lib\tk80.1ib version. lib\ 
. /nologo /subsystem: windows /dll /incremental : yes /pdb :"$ (OUTDIR) \plugext .pdb" \ 
/debug /machine : 1386 /out :"$ (OUTDIR) \plugext . dll " \ 
/implib : " $ (OUTDIR) \plugext . lib" /pdbtype : sept 
LINK32_OBJS= \ 

"$ (INTDIR) \extensionLib. obj" \ 
"$ (INTDIR) \NPN_wrapper. obj " \ 
"$ (INTDIR) \plugext. obj" \ 
M $ (INTDIR) \plugextCmd. obj » \ 
"$ (INTDIR) \plugextCmdAZ . obj" \ 
"$ (INTDIR) XpluglnstCmd.obj " \ 
"$ (INTDIR) XpluglnstCmdAZ.obj " 



"$ (OUTDIR) \plugext.dll" : " $ (OUTDIR) " $ (DEF_FILE) $ (LINK32_OB JS ) 
$(LINK32) ©<< 
$ ( LINK3 2_FLAGS ) $ (LINK32_OBJS ) 

<< 



! ENDIF 

.c{$ (CPP_OBJS) } .Obj : : 
$(CPP) @<< 
$(CPP_PROJ) $< 

<< 



.cpp{$ (CPP_OBJS) } .obj : : 
$(CPP) @<< 
$(CPP_PROJ) $< 

<< 

. cxx { $ ( CPP_OB JS ) } . ob j : : 
$(CPP) @<< 
$(CPP_PROJ) $< 

<< 

.c{$ (CPPJSBRS) } .sbr: : 
$(CPP) @<< 
$(CPP_PROJ) $< 

<< 

. cpp { $ ( CPP_SBRS ) } . sbr : : 
$(CPP) @<< 
$(CPP_PROJ) $< 

<< 

.cxx{$ (CPP_SBRS) } .sbr: : 
$(CPP) @<< 
$(CPP_PROJ) $< 

<< 



!IF "$(CFG)" == "plugext - Win32 Release" || "$(CFG)" ==\ 

"plugext - Win32 Debug" 
SOURCE= . \extensionLib . c 

!IF "$(CFG) n == "plugext - Win32 Release" 

DEP_CPP_EXTEN=\ 

" . \extensionLib.h"\ 
" . \tcl805.h"\ 



"$ (INTDIR) \extensionLib.obj " : $ (SOURCE) $ (DEP_CPP_EXTEN) " $ { INTDIR) 



! ELSEIF "$(CFG) n "plugext - Win32 Debug 

DEP_CPP_EXTEN=\ 

" . \extensionLib.h"\ 
" .\tcl805.h"\ 



" $ ( INTDIR) \extensionLib . obj " : $ (SOURCE) $ (DEP_CPP_EXTEN) "$ (INTDIR) 



1ENDIF 

SOURCE- . \NPN_wrapper . c 

!IF "$(CFG) n == "plugext - Win32 Release" 
DEP_CPP NPN_W=\ 



" . \extensionLib.h"\ 

" . \jri.h"\ 

" .\jri_md.h"\ 

" . \npapi . h"\ 

" . \npupp .h"\ 

" .\plugextlnt.h"\ 

" . \tcl805 .h"\ 



"$ (INTDIR) \NPN_wrapper.obj " : $ (SOURCE) $ (DEP_CPP_NPN_W) " $ ( INTDIR) " 



! ELSEIF "$<CFG) M == "plugext - Win32 Debug" 

DEP_CPP_NPN_W=\ 

" . \extensionLib.h"\ 

«.\jri.h«\ 

" .\jri_md.h"\ 

" . \npapi . h" \ 

" . \npupp.h"\ 

" . \plugextlnt .h"\ 

" . \tcl805 .h"\ 



$ (INTDIR) \NPN_wrapper.obj " : $ (SOURCE) $ (DEP_CPP_NPN_W) " $ (INTDIR) " 



! ENDIF 

SOURCE= . \plugext . c 

!IF "$(CFG) M == "plugext - Win32 Release" 

DEP_CPP_PLUGE=\ 

" . \extensionLib. h"\ 

".\jri.h"\ 

" . \jri_md.h n \ 

" . \npapi .h"\ 

" . \NPN_wrapper .h"\ 

" . \npupp.h" \ 

" . \plugextlnt .h"\ 

n .\tcl805.h"\ 



$ ( INTDIR) \plugext . ob j " : $ (SOURCE) $ (DEP_CPP_PLUGE) "$ (INTDIR)" 



! ELSEIF "$(CFG) M == "plugext - Win32 Debug' 

DEP_CPP_PLUGE=\ 

" . \extensionLib.h"\ 

n .\jri.h"\ 

" . \jri_md.h"\ 

" . \npapi . h"\ 

" . \NPN_wrapper .h"\ 

" . \npupp.h"\ 

" . \plugextlnt .h"\ 



" .\tcl805.h"\ 



$ (INTDIR) \plugext .obj » : $ (SOURCE) $ (DEP_CPP_PLUGE) M $ (INTDIR) » 



! ENDIF 

SOURCE= . \plugextCmd . c 

!IF M $(CFG)" == "plugext - Win32 Release 

DEP_CPP_PLUGEX=\ 

" . \extensionLib . h"\ 

" . \jri.h"\ 

" . \jri_md.h"\ 

" . \npapi .h"\ 

" . \npupp. h"\ 

" . \plugextlnt -h f, \ 

" .\tcl805.h"\ 



" $ ( INTDIR) \plugextCmd . obj " : $ (SOURCE) $ (DEP_CPP_PLUGEX) »$ (INTDIR)" 



! ELSEIF "$(CFG)" == "plugext - Win32 Debug" 

DEP_CPP_PLUGEX=\ 

" . \extensionLib . h" \ 
".\jri.h"\ 
" . \jri_md.h"\ 
" ,\npapi.h f, \ 
" . \npupp.h"\ 
" . \plugextlnt.h"\ 
• " . \tcl805 .h"\ 



$ (INTDIR) \plugextCmd. obj" : $ (SOURCE) $ (DEP_CPP_PLUGEX) "$ (INTDIR) » 



! ENDIF 

SOURCE= . \plugextCmdA2 . c 

!IF "$(CFG) n == "plugext - Win32 Release" 

DEP_CPP_PLUGEXT= \ 

" . \extensionLib . h"\ 

" . \jri .h"\ 

" • \jri_md.h"\ 

" . \npapi .h M \ 

".\npupp.h"\ 

n .\plugextlnt.h"\ 

" .\tcl805.h"\ 



"$ (INTDIR) \plugextCmdAZ.obj " : $ (SOURCE) $ (DEP_CPP_PLUGEXT) "$ (INTDIR) " 



! ELSEIF "$(CFG)" == "plugext - Win32 Debug" 



DEP_CPP_PLUGEXT= \ 

" . \extensionLib.h"\ 

" Ajri .h"\ 

" .\jri_md.h M \ 

" .\npapi.h"\ 

" . \npupp .h"\ 

" Aplugextlnt .h"\ 

" .\tcl805.h n \ 



"$ (INTDIR) \plugextCmdAZ .obj » : $ (SOURCE) $ (DEP_CPP_PLUGEXT) M $ (INTDIR) " 



! ENDIF 

SOURCE= . \plugInstCmd. c 

!IF "$(CFG) M == "plugext - Win32 Release" 

DEP_CPP_PLUGI=\ 

\extensionLib . h" \ 
\jri.h"\ 
\jri_md.h"\ 
\npapi . h"\ 
\npupp.h"\ 
\plugextlnt .h"\ 
\tcl805.h"\ 



"$ (INTDIR) \plugInstCmd. obj" : $ (SOURCE) $ (DEP_CPP_PLUGI) "$ (INTDIR)" 



! ELSEIF "$(CFG) H == "plugext - Win32 Debug" 

DEP_CPP_PLUGI=\ 

" \extensionLib. h"\ 
\jri.h"\ 
\jri__md.h"\ 
\npapi ,h"\ 
\npupp .h"\ 
\plugextlnt .h"\ 
\tcl805.h"\ 



"$ (INTDIR) \plugInstCmd. obj" : $ (SOURCE) $ (DEP_CPP_PLUGI) "$ (INTDIR)" 



I ENDIF 

SOURCE= . \plugInstCmdAZ . c 

•IF "$(CFG)" == "plugext - Win32 Release" 



DEP_CPP_PLUGIN=\ 

" . \extensionLib . h"\ 

" Ajri.h"\ 

" .\jri_md.h"\ 

" .\npapi.h M \ 

" ..\npupp .h"\ 

" ,\plugextlnt.h"\ 

" .\tcl805.h"\ 

NODEP_CPP_PLUGIN=\ 
" ,\tk.h"\ 



"$ (INTDIR) \plugInstCmdAZ.obj " : $ (SOURCE) $ (DEP_CPP_PLUGIN) »$ (INTDIR)" 



! ELSEIF "$(CFG) M == "plugext - Win32 Debug" 

DEP_CPP_PLUGIN=\ 

" . \extensionLib . h" \ 

M .\jri.h"\ 

" . \jri_md.h M \ 

".\npapi.h"\ 

" . \npupp .h"\ 

" Aplugextlnt .h"\ 

" .\tcl805.h"\ 

"c:\tcl8 05\include\tk.h"\ 

M c:\tcl805\include\xll\x.h M \ 

"c : \tcl8 0 5\include\xll\xfuncproto .h M \ 

"c:\tcl 8 0 5\include\xll\xlib.h n \ 



"$ (INTDIR) \plugInstCmdA2.obj" : $ (SOURCE) $ (DEP_CPP_PLUGIN) "$ (INTDIR)" 



! ENDIF 



! ENDIF 



Configuration: plugext - Win32 Debug 

Begining build with project "F : \Win\Plugext\plugext . dsp" , at root. 

Active configuration is Win32 (x86) Dynamic-Link Library (based on Win32 (x86) 

Dynamic-Link Library) 

Project's tools are: 

"32-bit C/C++ Compiler for 80x86" with flags "/nologo /MTd /W3 
/Gm /GX /2i /Od /I "C:\tcl805\include" /D "WIN32 " /D "_DEBUG" /D "^WINDOWS" 
/Fp M Debug/plugext .pch" /YX /Fo"Debug/" /Fd"Debug/" /FD /c " 

"OLE Type Library Maker" with flags "/nologo /D "_DEBUG" 
/mktyplib203 /o NUL /win32 " 

"Win32 Resource Compiler" with flags "/l 0x409 /d "_DEBUG" " 

"Browser Database Maker" with flags "/nologo 
/o"Debug/plugext .bsc" " 

"COFF Linker for 80x86" with flags n kernel32 . lib user32.1ib 
gdi32.1ib winspool.lib comdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib 
oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib C:\tcl805\lib\tcl80.1ib 
C:\tcl805\lib\tk80.1ib version. lib /nologo /subsystem: windows /dll 
/incremental : yes /pdb : "Debug/plugext .pdb" /debug /machine : 1386 
/out : "Debug/plugext .dll" /implib : "Debug/plugext . lib" /pdbtype : sept " 

"Custom Build" with flags "" 

"<Component Oxa>" with flags "" 

Creating temp file "C:\WINDOWS\TEMP\RSPD0D5.TMP" with contents </nologo /MTd /W3 
/Gm /GX /Zi /Od /I "C:\tcl805\include" /D "WIN32 " /D "_DEBUG" /D "^WINDOWS" 
/Fp "Debug/plugext .pch" /YX /Fo"Debug/" /Fd"Debug/" /FD /c 
"F : \Win\Plugext\plugInstCmdAZ . c " 
> 

Creating command line "cl.exe @C : \WINDOWS\TEMP\RSPD0D5 . TMP " 

Creating temp file "C:\WINDOWS\TEMP\RSPD0D6.TMP" with contents <kernel32 . lib 

user32.1ib gdi32.1ib winspool.lib comdlg32.1ib advapi32.1ib shell32.1ib 

ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib C:\tcl805\lib\tcl80.1ib 

C:\tcl805\lib\tk80.1ib version. lib /nologo /subsystem : windows /dll 

/incremental ryes /pdb : "Debug/plugext .pdb" /debug /machine : 1386 

/out : "Debug/plugext .dll" /implib: "Debug/plugext. lib" /pdbtype : sept 

. \Debug\extensionLib . obj 

. \Debug\NPN_wrapper . obj 

. \Debug\plugext . obj 

. \Debug\plugextCmd . obj 

. \Debug\plugextCmdAZ . obj 

. \Debug\plugInstCmd.obj 

. \Debug\plugInstCmdAZ . obj > 

Creating command line "link.exe ©C:\WINDOWS\TEMP\RSPD0D6.TMP" 
Compiling. . . 
pluglnstCmdAZ . c 

F : \Win\Plugext\plugInstCmdAZ . c (89) : warning C4013: * MyPrint' undefined; 
assuming extern returning int 

F:\Win\Plugext\plugInstCmdAZ.c (826) : warning C4133 : 'function' : incompatible 
types - from 'int *' to 'unsigned short *' 
Linking. . . 



plugext . dll 



- 0 error (s) , 2 warning (s) 



/* 

* plugextCmd . c 

* Copyright (c) 1997 Clif Flynt 

* All rights reserved. 
* 

* Permission is hereby granted, without written agreement and without 

* license or royalty fees, to use, copy, modify, and distribute this 

* software and its documentation for any purpose, provided that the 

* above copyright notice and the following two paragraphs appear in 

* all copies of this software. 
* 

* IN NO EVENT SHALL Clif Flynt BE LIABLE TO ANY PARTY FOR 

* DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT 

* OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF 

* CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
★ 

* Clif Flynt SPECIFICALLY DISCLAIMS ANY WARRANTIES, 

* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 

* AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS 

* ON AN "AS IS" BASIS, AND Clif Flynt HAS NO OBLIGATION TO 

* PROVIDE MAINTENANCE, SUPPORT, UPDATES , ENHANCEMENTS, OR MODIFICATIONS. 
*/ 

/* Include the usual suspects. */ 

#if defined (_WIN32) 
#include <windows.h> 
#endif 

#include "stdlib.h" 
#include "ctype.h" 
#include "plugext Int . h" 

#define plugext CMD_REVIS ION "$Revision: 1.9 $" 

extern int plugextDebugPrint ; 

/* 

* Define the sub commands 
★ 

* These strings define the subcommands that the plugext command 

* supports. 
* 

* To add a new subcommand, add the new subcommand string, 

* #define and entry in cmdDef inition 
* 

* Note: Order is important. 

* These are the subcommands that will be recognized 
* 

*/ 

static char * subcommands [] = { 

"new", "destroy", "children", "getmime", "bogus", NULL}; 

/* 

* These #defines define the positions of the subcommands. 

* You can use enums if you are certain your compiler will provide the 

* same numbers as this. 



*/ 

#define M_new 0 
#define M_destroy 1 
#define M_children 2 
#define M_getmime 3 
#define M_bogus 4 

/* 

* The cmdDef inition structure describes the minimum and maximum number 

* of expected arguments for the subcommand (including cmd and subcommand 

* names) , and a usage message to return if the argument 

* count is outside the expected range. 
*/ 

static cmdDef inition definitions [] = { 

{"new ?name? -mime Mimetype -mode ? FULL , EMBED , BACKGROUND? ?-embed args?", 
6 , 9}, 

{"destroy pluginName", 3 , 3}, 
{"children pluginName" , 3 , 3}, 
{"getmime " , 2 , 2} , 
{"bogus bogusval" , 3, 3} 

}; 

/* c++ Comment 

// These are the segments that need to be declared in the "C" namespace 
// These function names and data will be accessed by programs in the 
// Tel "C" language library. 
*/ 

/* 

extern "C" { 
*/ 

/* 

★ 

★ 

* plugextName_Cmd -- 
* 

* plugextName_Cmd is invoked to process the "pluginName" Tel command. 

* It will parse a subcommand, and perform the requested action. 
★ 

* Results: 

* A standard Tel result. 
* 

* Side effects: 
★ 

* 

*/ 

int plugextName_Cmd (ClientData plugext, 

Tcl_Interp *interp , 
int objc, 

Tcl_Obj *objv[]) { 



/* ClientData plugext; 
/* Tcl_Interp *interp; 



/* Not used. */ 
/* Current interpreter. */ 



/* int objc; 

/* Tcl_Obj *CONST objv[] ; 



/* Number of arguments. */ 
/* Argument objects. */ 



int cmdnum; 

int result; 

Tcl_Obj *returnValue; 

CmdReturn *returnStruct ; 

/* 

* Initialize the return value 
*/ 

returnValue = NULL; 
returnStruct = NULL; 

/* 

* Check that we have at least a subcommand, 

* else return an Error and the usage message 
*/ 

if (objc < 2) { 

Tcl_WrongNumArgs (interp, 1, objv, 

"subcommand ?fieldName? ?f ieldValue? " ) ; 
return TCL_ERROR ; 

} 

/* 

* Find this plugext subcommand in the list of subcommands. 

* Tcl_GetIndexFromObj returns the offset of the recognized string, 

* which is used to index into the command definitions table. 
*/ 

result = Tcl_GetIndexFromObj (interp, objv[l], subcommands, 

"subcommand", TCL_EXACT, &cmdnum) ; 

/* 

* If the result is not TCL_OK, then the error message is already 

* in the Tel Interpreter, this code can immediately return. 
*/ 

if (result != TCL_OK) { 
return TCL_ERROR ; 

} 

/* 

* Check that the argument count matches what's expected for this 

* Subcommand . 
*/ 

if ((objc < definitions [cmdnum] .minArgCnt) || 
(objc > definitions [cmdnum] .maxArgCnt) ) { 

Tcl_WrongNumArgs (interp, 1, objv, definitions [cmdnum] .usage); 
return TCL_ERROR; 

} 



result = TCL_OK; 



/* 

* The subcommand is recognized, and has a valid number of arguments 

* Process the command. 
*/ 

switch (cmdnum) { 
case M_new: { 

returnStruct = 

plugextName_newCmd (NULL, interp, objc, objv); 
break; 

} 

case M_destroy: { 

returnStruct - 

plugextName_destroyCmd (NULL, interp, objc, objv); 
break; 

} 

case M_children: { 
returnStruct = 

plugextName_childrenCmd (NULL, interp, objc, objv); 
break; 

} 

case M_getmime : { 

returnStruct = 

plugextName_getmimeCmd (NULL, interp, objc, objv); 
break; 

} 

default: { 

char error [80] ; 

sprintf (error , "Bad sub-command %s. Has no entry in switch", 

Tcl_GetStringFromObj (objv [1] , NULL) ) ; 
returnValue = Tcl_NewStringObj (error, -1) ; 
result = TCL_ERR0R; 

} 

} 

/* 

* Extract an object to return from returnStruc. 

* returnStruct will be NULL if the processing is done in this 

* function and no other function is called. 
*/ 

if (returnStruct != NULL) { 

returnValue = returnStruct- >object ; 
result = returnStruct- >status; 
Tel Free ((char *) returnStruct ) ; 



/* 

* Set the return value and return the status 
*/ 

if (returnValue != NULL) { 

Tcl_SetObjResult (interp, returnValue) ; 

} 



debugprt ("leaving plugext Cmd\n H ); f flush (stdout) ; 



return result; 

} 

/* c++ Comment 

// This is the close of the extern "C" section 
*/ 



/* 

} 

*/ 



/* 

* plugextCmdAZ . c 

* Copyright (c) 1997 Clif Flynt 

* All rights reserved. 
* 

* Permission is hereby granted, without written agreement and without 

* license or royalty fees, to use, copy, modify, and distribute this 

* software and its documentation for any purpose, provided that the 

* above copyright notice and the following two paragraphs appear in 

* all copies of this software. 
* 

* IN NO EVENT SHALL Clif Flynt BE LIABLE TO ANY PARTY FOR 

* DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT 

* OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF 

* CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
* 

* Clif Flynt SPECIFICALLY DISCLAIMS ANY WARRANTIES, 

* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 

* AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS 

* ON AN "AS IS" BASIS, AND Clif Flynt HAS NO OBLIGATION TO . 

* PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
*/ 

/* Include the usual suspects. */ 



#if defined (_WIN32) 
#include <windows.h> 
#endif 

#include "stdlib.h" 
#include <stdio.h> 
#include "ctype.h" 
#if defined (_WIN32) A M 
#else 

#include <dlfcn.h> 
#endif 

#include "plugextlnt . h" 
#include "extensionLib . h" 



static int pluginNamelD = 0; 



extern Tcl_HashTable *plugext_hashtablePtr ; 
extern int plugextDebugPrint ; 

#define PLUGEXTCMDAZ REVISION "$Revision: 1.14 $" 



CmdReturn *plugextName_newCmd ()-- 

Demonstrates creating a hash entry. 

Creates a hash entry for Key, with value String 

Arguments 



* objv[0] 

* objv[l] 

* objv[2] 

* objv[3] 



"plugext " 
"load" 
f ileName 
?IDString? 



* Results 

* Creates a new hash entry. Sets error if entry already exists. 
* 



* Side Effects: 

* None 

. */ 

CmdReturn *plugextName_newCmd (ClientData info, 

Tcl_Interp *interp, 
int objc, 

Tcl_Obj *objv[]) { 
Tcl_HashEntry *hashEntryPtr ; 
CmdReturn *returnStructPtr ; 
char hashName [90] ; 

char *hashKeyPtr; 
int isNew; 
NPP_t *NPPhandle; 
PluginData *pluginData; 
InstanceData *instanceData; 

NPError (*NPPNew) {); /* Pointer to the NPP_New function */ 

char *pluginName = NULL; /* The name assigned when the plugin was loaded 

char *mimeType; 
int mode; 

int i, keyvalCount; 

/* Hardcoding array sizes is evil, but I think this will fly. */ 
char *tmp, *keyval, *keys [30] , *vals [30] ; 
int status; 

/* 

* Print that the function was called for debugging 
*/ 

MyPrint ( "plugextName_newCmd called with %d args : hashName: %s\n" , objc, 
Tcl_GetStringFromObj (objv[2] , NULL) ) ; 

keyvalCount = 0; 
/* 

* Allocate the space and initialize the return structure. 
*/ 

returnStructPtr = makeCmdReturn ( ) ; 

/* Confirm that the name is valid (it should be!) and we've got 

* a hash table entry for the plugin Data */ 

pluginName = Tcl_GetStringFromObj (objv [0] , NULL) ; 

pluginData = (PluginData *) getHashData (interp, pluginName, 
plugext_hashtablePtr) ; 

if (pluginData == NULL) { 
setErrorReturns (interp, 

"Plugin named \"%s\" does not exist s.\n", pluginName , " " , " " , 
"Plugin named \"%s\" does not exists. \n", pluginName , "", " " , 
"pluginName create", "500"); 



returnStructPtr->status = TCL__ERROR; 
goto done; 

} 

/* If the first arg starts with a its a flag and there is no 

* hardcoded ID name (we choose one). If not, we grab that name. 
*/ 

tmp = Tcl_GetStringFromObj (objv[2] , NULL) ,* 

if (*tmp != •-•) { 

strcpy (hashName, Tcl_GetStringFromObj (objv[2] , NULL) ) ; 
} else { 

^ sprint f (hashName, "%s%d", pluginName, pluginNameID++) ; 
/* 

* Extract the string representation of the object argument, 

* and use that as a key into the hash table. 
★ 

* If this entry already exists, complain. 
*/ 

hashEntryPtr = Tcl_CreateHashEntry (plugextJiashtablePtr , hashName, fcisNew) ; 

if (lisNew) { 

setErrorReturns (interp, 

"Plugin named \"%s\" already exists. \n", hashKeyPtr, "", ■"■ , 
"plugin with this name exists" , " " , " " , , 
"pluginName create", "500"); 

MyPrint ("failed on isNew") ; 

returnStructPtr->status = TCL_ERROR ; 
goto done; 

} 

/* 

* If we are here, then the key is unused. 

* Get the string representation from the object, 

* and make a copy that can be placed into the hash table. 
*/ 

instanceData = (InstanceData *) Tcl_Alloc (sizeof (InstanceData) ) ; 
Tcl_SetHashValue (hashEntryPtr, instanceData) ; 

Tcl_ListObjAppendElement (interp, pluginData->childList , 
Tcl_NewStringObj (hashName, -1) ) ; 

MyPrint ("set NPP instanceData: %xx PluginData: %xx\n", instanceData, 
pluginData) ; 

/* Initialize the function pointers */ 

instanceData- >netscapeFuncs = fcpluginData - >netscapeFuncs ; 
instanceData- >pluginFuncs = &pluginData- >pluginFuncs ; 
instanceData - >pluginReadStream = NULL; 



instanceData->pluginWriteStream = NULL; 
instanceData->win = NULL; 

instanceData->readBuf fer = NULL; 
instanceData->readLen = 0; 
instanceData->readSize = 0; 
instanceData->readOf f set = 0; 
instanceData->putsBuf fer = NULL; 
instanceData->streamType = "No Stream"; 

instanceData->saved = (NPSavedData *) Tcl_Alloc (sizeof (NPSavedData) ) 
instanceData->saved->len = 0; 
instanceData->saved->buf = NULL; 
instanceData->interp = interp; 

if (returnStructPtr->status != TCL_OK) {goto done;} 

/* Initialize these parameters before we check for program settings 



mode = NP_FULL; 
mimeType = "text/html"; 



for (i=0; i<objc; i++) { 

if ( ! strcmp ( " -mime" , Tcl_GetStringFromObj (objv [i] , NULL) ) ) { 
i + +; 

mimeType = Tcl_GetStringFromObj (obj v [i] , NULL); 

} 

if (! strcmp ("-mode", Tcl_GetStringFromObj (obj v [i] , NULL))) { 
i++; 

tmp = Tcl_GetStringFromObj (objv [i] , NULL) ; 
if (! strcmp ("FULL", tmp)) { 
mode = NP_FULL; 

} 

if (! strcmp ("EMBED" , tmp)) { 
mode = NP_EMBED; 

} 

if ( 1 strcmp ("BACKGROUND", tmp)) { 
mode = NP_BACKGROUND; 

} 

} 

if (! strcmp ("-embed", TclJ3etStringFromObj (obj v [i] , NULL))) { 
i++; 

tmp = Tcl_GetStringFromObj (objv [i] , NULL) ; 
/* tmp == foo=bar baz=abc key= "value" */ 



keyval = Tcl__Alloc (strlen (tmp) +1) ; 
strcpy (keyval , tmp) ; 
tmp = keyval; 
while (*tmp != 0) { 

keys [keyvalCount] = tmp; 

while (*tmp != •=*) tmp++; 

*tmp++ = 0; 

if (*tmp == 1 " * ) tmp++; 
vals [keyvalCount] = tmp; 

while ((*tmp != * • ) && (*tmp != 0) && (*tmp != * " ■ ) ) tmp++; 
if (*tmp != 0) { 

*tmp = 0; 

tmp++; 



while ( 

( (*tmp == ' ' ) | | (*tmp == ■ ) ) 
&& (*tmp != 0) 
) tmp++; 

} 

keyval Count ++; 

} 

} 

} 

for (i=0; i<keyvalCount ; i++) { 

MyPrint ("pos : %d key: %sval: %s\n", i, keys [i] , vals [i] ) ; 

} 

NPPhandle = (NPP_t *) Tcl_Alloc (sizeof (NPP_t) ) ; 

MyPrint ("NPPHandle: %xx instanceData/pdata : %xx MODE: %d \n", NPPhandle, 
instanceData, mode) ; 

instanceData- >handle = NPPhandle; 

NPPhandle- >ndata = NULL; 
NPPhandle- >pdata = NULL; 

/* 

* KLUDGE - SHOULD ALLOW FOR ALTERNATIVE ARGS TO BE PASSED 
*/ 

{ 

NPPluginFuncs *pf ; 

pf = instanceData->pluginFuncs ; 

NPPNew = pf->newp; 

} 

if (NPPNew == NULL) { 
char *strErrno; 
strErrno = Tcl_Alloc (99) ; 

sprintf (strErrno, "ixx", pluginData->dlopenHandle) ; 

setErrorReturns (interp, 

"Unable to create new plugin. Can't find NPP_New\n", NULL, NULL, NULL, 
"Unable to create new plugin. Can't find NPP_New\n", NULL, NULL, NULL, 
"plugextName_newCmd" , strErrno) ; 

returnStructPtr->status = TCL_ERR0R; 

goto done; 

} 

MyPrint ("PRE NPP_New NPPHandle: %xx instanceData %xx Handle- >pdata : %xx\n", 
NPPhandle, instanceData, NPPhandle- >pdata) ; 

status = NPPNew (mime Type , NPPhandle, mode, keyvalCount, keys, vals, 
instanceData->saved) ; 

MyPrint ("POST NPP_New NPPHandle: %xx instanceData %xx Handle- >pdata : %xx\n", 
NPPhandle, instanceData, NPPhandle->pdata) ; 

/* status = NPP_New(mimeType, NPPhandle, mode, 0, NULL, NULL, instanceData - 
>saved) ; */ 



if (status != NPERR_NO_ERROR) { 
char err [80] ; 
sprintf(err, "%d", status); 

Tcl_SetErrorCode (interp, err, (char *) 'NULL) ; 
sprintf(err, "NPP_New failed on status: %d\n" , status); 

Tcl_AddObj Error Info(interp, err, strlen(err)) ; 

Tcl__AddErrorInfo(interp, "error in plugext_loadCmd" ) ; 

returnStructPtr->status = TCL ERROR; 

} 

Tcl_CreateOb j Command ( interp , hashName , 

(Tcl_ObjCmdProc *) pluglnst^Cmd, 0, 0) ; 

done : 

if (returnStructPtr->status == TCL_OK) { 

returnStructPtr->object = Tcl_NewStringObj (hashName, -1) ; 
} else { 

returnStructPtr->object = 

Tcl_NewStringObj ("Failed to create new plugin instance", -1) ; 



MyPrint ( "Leaving loadCmd \n"); f flush (stdout) ; 
return returnStructPtr ; 

} 



/* 

* CmdReturn *plugextName_childrenCmd ()-- 

* Demonstrates creating a hash entry. 

* Creates a hash entry for Key, with value String 

* Arguments 

* objv[0]: "plugext" 

* objv [1] : "load" 

* objv [2] : fileName 

* objv[3]: ?IDString? 
* 

* Results 

* Creates a new hash entry. Sets error if entry already exists. 
* 

* Side Effects: 

* None 

v 

CmdReturn *plugextName_childrenCmd (ClientData info, 

Tcl_Interp * interp, 
int objc, 

Tcl_0bj *objv[]) { 
CmdReturn *returnStructPtr ; 
PluginData *pluginData; 

char *pluginName = NULL; /* The name assigned when the plugin was loaded 
/* 

* Print that the function was called for debugging 
*/ 



MyPrint ("plugextName_childrenCmd called with %d args : hashName: %s\n" , 
objc, Tcl_GetStringFromObj (objv[2] , NULL) ) ; 

/* 

* Allocate the space and initialize the return structure 
*/ 

returnStructPtr = make CmdRe turn ( ) ; 

/* Confirm that the name is valid (it should be!) and we've got 

* a hash table entry for the plugin Data */ 

pluginName = Tcl__GetStringFromObj (objv [0] , NULL); 

pluginData = (PluginData *) getHashData (interp, pluginName, 
plugext_hashtablePtr) ; 

if (pluginData == NULL) { 

returnStructPtr- >status = TCL__ERR0R ; 
goto done; 

} 

returnStructPtr- >object = pluginData- >childList ; 
done : 

MyPrint ("Leaving loadCmd \n"); f flush (stdout) ; 
return returnStructPtr; 

} 



/* 

* CmdReturn *plugextName_getmimeCmd ()-- 

* Demonstrates creating a hash entry. 

* Creates a hash entry for Key, with value String 

* Arguments 

"plugext " 
"load" 
f ileName 
?IDString? 



* objv[0] 

* objv[i] 

* objv[2] 

* objv[3] 
* 

* Results 

* Creates a new hash entry. Sets error if entry already exists, 
* 

* Side Effects: 

* None 

CmdReturn *plugextName_getmimeCmd (ClientData info, 

Tcl_Int erp * interp , 
int objc, 

Tcl_Obj *objv[]) { 



CmdReturn *returnStructPtr ; 



PluginData *pluginData; 

char *pluginName = NULL; /* The name assigned when the plugin was loaded * 
char *mimeString; 

char * (*NPPMimeDesc) () ; '/* Pointer to the NPP_Mime description function 

char *tmpMIME; 

tmpMIME » Tcl_Alloc(99) ; 

/* 

* Print that the function was called for debugging 
*/ 

MyPrint ( M plugextName_getmimeCmd called with %d args : hashName : %s\n", 
objc, Tcl_GetStringFromObj (objv[2] , NULL) ) ; 

/* 

* Allocate the space and initialize the return structure. 
*/ 

returnStructPtr = makeCmdReturn ( ) ; 

/* Confirm that the name is valid (it should be!) and we've got 

* a hash table entry for the plugin Data */ 

pluginName = Tcl_GetStringFromObj (obj v [0] , NULL); 

pluginData = (PluginData *) getHashData ( interp, pluginName, 
plugext_hashtablePtr) ; 

if (pluginData = = NULL) { 

returnStructPtr- >status = TCL_ERR0R; 
goto done; 

} 

f defined (_WIN32) 
{ 

DWORD dwLen; 
char name [2 55] ; 

BOOL bRet; 
char *value; 
int len; 

struct { 

WORD first; 

WORD second; 
} *lpBuffer; 



VerQueryValue (pluginData- ^ersionData, H \\VarFileInf o\\Translation" , 
(LPVOID*) fidpBuffer, (unsigned int *) fcdwLen) ; 



if (dwLen 0) { 

setErrorReturns (interp, 

"Failed to get second dwLen" , NULL, NULL, NULL, 
"Failed to get second dwLen", NULL, NULL, NULL, 



"plugextName_getmimeCmd M , "516") ; 
returnStructPtr->status = TCL_ERROR ; 
goto done; 

} 

wsprintf (name, "\\StringFileInfo\\%04x%04x\\MIMEType" , 
lpBuf fer->f irst, lpBuf f er- >second) ; 

bRet = VerQueryValue (pluginData- >VersionData, name, &value, &len) ; 

if (IbRet) { 

setErrorReturns (interp, 

"Failed to get MIMEType", NULL, NULL, NULL, 

"Failed to get MIMEType", NULL, NULL, NULL, 

"plugextName_getmimeCmd" , "517") ; 
returnStructPtr->status = TCL_ERROR; 
goto done; 

} 

mimeString = value; 

} 

#else 

NPPMimeDesc = dlsym (pluginData- >dlopenHandle, "NPP_GetMIMEDescription" ) ; 
if (NPPMimeDesc == NULL) { 

NPPMimeDesc = dlsym (pluginData- >dlopenHandle , M NP_GetMIMEDescription" ) ; 

if (NPPMimeDesc == NULL) { 
setErrorReturns (interp, 

"Unable to determine MIDI type. Can't find NP_GetMIMEDescription" , 
NULL, NULL, NULL, 

"Unable to determine MIDI type. Can't find NP_GetMIMEDescription" , 
NULL, NULL, NULL, 

"plugextName_getmimeCmd" , "513") ; 
returnStructPtr->status = TCL ERROR; 

} 

if (NPPMimeDesc == NULL) { 

mimeString = "Unknown /unknown" ; 
} else { 

mimeString = NPPMimeDesc () ; 

} 

#endif ■ 

returnStructPtr->object = Tcl_NewStringObj (mimeString, -1) ; 
done : 

MyPrint ("Leaving loadCmd \n"); f flush (stdout) ; 
return returnStructPtr ; 

} 



/* 



* CmdReturn *plugextName_destroyCmd ()-- 

* Demonstrates creating a hash entry. 

* Creates a hash entry for Key, with value String 

* Arguments 



objv [0] 
objvtl] 
objv [2] 
objv [3] 



"plugext " 
"load" 
f ileName 
?IDString? 



* Results 

* Creates a new hash entry. Sets error if entry already exists. 
* 

* Side Effects: 

* None 

^ 

CmdReturn *plugextName_destroyCmd (ClientData info, 

Tcl_Interp *interp, 
int objc, 

Tcl_Obj *objv[]) { 
CmdReturn *returnStructPtr ; 
PluginData *pluginData; 

char *pluginName = NULL ; /* The name assigned when the plugin was loaded 



* Print that the function was called for debugging 
*/ 



MyPrint ( "plugextName_destroyCmd called with %d args : hashName: %s\n", 
objc, Tcl_GetStringFromObj (objv [2] , NULL) ) ; 

/* 

* Allocate the space and initialize the return structure. 
*/ 

returnStructPtr = makeCmdReturn ( ) ; 

/* Confirm that the name is valid (it should be!) and we've got 

* a hash table entry for the plugin Data */ 

pluginName = Tcl_GetStringFromObj (objv [0] , NULL); 

pluginData = (PluginData *) getHashData (interp, pluginName, 
plugext_hashtablePtr) ; 

if (pluginData == NULL) { 

returnStructPtr- >status = TCL_ERR0R; 
goto done; 

} 

returnStructPtr->object = Tcl_NewStringObj ("NOT IMPLEMENTED YET", -1) ; 
' returnStructPtr->status = TCL_ERROR ; 

done : 



MyPrint ("Leaving loadCmd \n"); f flush (stdout) ; 



return, returnStructPtr 



/* 

* plugextlnt.h 
* 

* Declarations used by the plugexttcl extension 
* 

* Copyright (c) 1997 Clif Flynt 
* 

* See the file "license . terms" for information on usage and 

* redistribution of this file, and for a 

* DISCLAIMER OF ALL WARRANTIES . 
* 

* RCS: $Log: 
*/ 

#ifndef _PLUGEXTINT 
#define _PLUGEXTINT 

/* 

* Declare the #includes that will be used by this extension 
*/ 

ttinclude "extensionLib . h" 

/* typedef struct Tcl_Obj TcljDbj ; */ 

#ifdef cplusplus 

extern "C" { 
#endif 

#include "tcl805.h" 

#ifdef cplusplus 

} 

#endif 

#include <string.h> 

#include " npupp . h " 

#include "npapi . h" 

/* #include <sys/utsname . h> */ 

/* #include <iostream.h> */ 

/* 

* Define the major and minor version numbers. 

* Note: VERSION is defined as a string, not integers. 

* MAJOR and MINOR are defined as integers. 
*/ 

#define PLUGEXT_VERSION "1.0" 
#define PLUGEXT_MAJ0R_VERSION 1 
#define PLUGEXT_MINOR_VERSION 0 

/* MAY BE UNNECESSARY - APPEARS IN DOCUMENTATION, but NOT npapi. h */ 
#define NP BACKGROUND 3 



typedef struct pluginData { 



#if defined (_WIN32) 

HINSTANCE dlopenHandle ; 

#else 

void *dlopenHandle ; 
#endif 

NPNetscapeFuncs netscapeFuncs ; 
NPPluginFuncs pluginFuncs ; 
Tcl_Obj *childList; 

char *DLLname; /* The name of this plugin (xx . dll/xx . so) */ 

#if defined <_WIN32) 

void *VersionData; /* To be queried as necessary */ 

#endif 

} PluginData; 

typedef struct instanceData { 

NPNetscapeFuncs *netscapeFuncs ; 
NPPluginFuncs *pluginFuncs ; 
NPStream *pluginReadStream; 
NPStream *pluginWriteStream; 
NPP handle; 
NPWindow *win; 
NPSavedData * saved; 

char *streamType; /* asfile, normal, asfileonly */ 

Tc l_Channe 1 t c 1 ReadChanne 1 ; 
Tcl_Channel tclPutsChannel ; 
unsigned char *readBuffer; 
unsigned char *putsBuf f er '; 

int readLen; /* How much data is in readBuffer */ 

int readOffset; /* Where does it start */ 

int readSize; /* How much space is there */ 

int maxAccept; /* The first WriteReady return */ 

Tcl_Interp *interp; /* For use by the I/O routines */ 

} InstanceData; 

/* 

* VC+ + has an alternate entry point called DllMain, so we 

* need to rename our entry point . 
*/ 



#if defined ( WIN32 ) 



# define W I N 3 2 _L E AN_ AND_M E AN 

# include <windows.h> 

# undef WIN32 _LE AN__AND _ME AN 

# if defined (_MSC_VER) 

# define EXPORT (a, b) declspec (dllexport ) a b 

# define DllEntryPoint DllMain 

# else 

# if defined ( BORLANDC ) 

# define EXPORT (a f b) a ^export b 

# else 

# define EXPORT (a, b) a b 

# endif 

# endif 



#else 

# define EXPORT (a, b) a b 
#endif 



/* 

* Function Prototypes for the commands that actually do the 

* processing. 

* Two macros are used in these prototypes : 
* 

* EXTERN EXPORT is for functions that must interact with the 

* Microsoft or Borland C++ DLL loader. 

* ANSI_ARGS is defined in tcl.h 

* ANSI_ARGS returns an empty string for non-ANSI C 

* compilers, and returns it's arguments for ANSI C 

* compilers. 
*/ 



I * * * 

extern "C" { 

* * * J 

I ***** * 

// EXTERN EXPORT ( int , plugext_AppInit ) _ANSI_ARGS_ ( (Tcl_Interp *)); 

// EXTERN EXPORT (int ,plugext_Init) _ANSI_ARGS_ ( (Tcl_Interp *) ) ; 

// EXTERN EXPORT ( int , plugext_Cmd) _ANSI_ARGS_ ( (ClientData, Tel Interp *, int, 

Tcl_Obj **)); 

*****/ 

int plugext_AppInit _ANSI_ARGS_ ( (Tcl_Interp *)); 
int plugext_Init _ANSI_ARGS_ ( (Tcl_Interp *) ) ; 

int plugext__Cmd _ANSI_ARGS_ ({ClientData, Tcl_Interp *, int, Tcl_Obj **) ) ; 
/** * 

} 

* * */ 

int plugext_loadInit _ANSI_ARGS_ ( (Tcl_Interp *, char *)); 

int plugextName_Cmd _ANSI_ARGS_ ((ClientData, 
Tcl_Interp *, int, Tcl_Obj **) ) ; 

int plug Ins t__Cmd _ANSI_ARGS_ ((ClientData, 
Tcl_Interp *, int, Tcl_Obj **) ) ; 

CmdReturn *plugext_createCmd _ANSI_ARGS_ ((ClientData, 
Tcl_Interp *, int, Tcl_Obj **)); 



CmdReturn *plugextName_newCmd _ANSI_ARGS_ {(ClientData, 

Tcl_Interp *, int, Tcl_Obj **)); 
CmdReturn *plugextName_destroyCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, Tcl_Obj **) ) ; 
CmdReturn *plugextName_childrenCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, TclJDbj **) ) ; 
CmdReturn *plugextName_getmimeCmd _ANSI_ARGS_ ({ClientData, 

Tcl_Interp *, int, TcljDbj **)); 



CmdReturn *plugInst_openCmd _ANSI_ARGS_ ( (ClientData, 
Tcl_Interp *, int, Tcl_Obj **)); 



CmdReturn *plugInst_destroyCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, Tcl_Obj **) ) ; 
CmdReturn *plugInst_closeCmd _ANSI_ARGS_ {(ClientData, 

Tcl_Interp *, int ; TcljDbj **) ) ; 
CmdReturn *'plugInst_setwindowCmd __ANSI_ARGS_ ( (ClientData, 

Tcl_Interp *, int, Tcl_Obj **)); 
CmdReturn *plugInst_writereadyCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, Tcl_Obj **) ) ; 
CmdReturn *pluglnst_streamf ileCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, TcljDbj **)); 
CmdReturn *plugInst_streamTypeCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, TcljDbj **)); 



Tcl_ChannelType *makeChannelTypeStructure ( ) ; 



CmdReturn *plugext_ArraystrCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, Tcl_Obj **)); 
CmdReturn *plugext_GetstrCmd _ANSI_ARGS_ ((ClientData, 

Tcl_Interp *, int, Tcl_Obj **) ) ; 
void plugext_InitHashTable _ANSI_ARGS_ (()); 

/* 

* For debuging printf 's. 
*/ 

tfdefine debugprt if (plugextDebugPrint >0 ) printf 
#endif 

/* End _PLUGEXTINT */ 



/* 

* plugextCmd . c 

* Copyright (c) 1997 Clif Flynt 

* All rights reserved. 
★ 

* Permission is hereby granted, without written agreement and without 

* license or royalty fees, to use, copy, modify, and distribute this 

* software and its documentation for any purpose, provided that the 

* above copyright notice and the following two paragraphs appear in 

* all copies of this software. 
★ 

* IN NO EVENT SHALL Clif Flynt BE LIABLE TO ANY PARTY FOR 

* DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT 

* OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF 

* CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
★ 

* Clif Flynt SPECIFICALLY DISCLAIMS ANY WARRANTIES, 

* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 

* AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS 

* ON AN "AS IS" BASIS, AND Clif Flynt HAS NO OBLIGATION TO 

* PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
*/ 

/* Include the usual suspects. */ 

#if defined (_WIN32) 
#include <windows . h> 
#endif 

#include "stdlib.h" 
#include "ctype .h" 
#include "plugextlnt .h" 

#define plugInst_REVISION "$Revision: 1.5 $" 

extern int plugextDebugPrint ; 

/* 

* Define the sub commands 

* 

* These strings define the subcommands that the plugext command 

* supports. 
* 

* To add a new subcommand, add the new subcommand string, 

* #define and entry in cmdDef inition 
* 

* Note: Order is important. 
* 

* These are the subcommands that will be recognized 
* 

*/ 

static char * subcommands [] = { 

"open", "destroy", "close", "setwindow", "writeready " , "streamf ile" , 
"streamtype" , "sendFile", "bogus", NULL}; 

/* 

* These #defines define the positions of the subcommands. 

* You can use enums if you are certain your compiler will provide the 



* same numbers as this. 
*/ 



#define M_open 0 
#define M_destroy 1 
#define M_close 2 
#define M_setwindow 3 
#define M_writeready 4 
tfdefine M_streamfile 5 
#define M_streamtype 6 
#define M_sendFile 7 
#def ine M_bogus 8 * 

/* 

* The cmdDef inition structure describes the minimum and maximum number 

* of expected arguments for the subcommand (including cmd and subcommand 

* names) , and a usage message to return if the argument 

* count is outside the expected range. 
*/ 

static cmdDef inition definitions [] = { 

{"open ?-mime Mimetype? -seekable ? FULL , EMBED, BACKGROUND? 'r/w ,H , 3 

{"destroy ", 2 , 2}, 

{"close channellD", 3 , 3}, 

{"setwindow windowName", 3 , 3}, 

{ "writeready channel", 3,3}, 

{"streamfile fileName", 3,3}, 

{ "streamtype" , 2,2}, 

{"sendFile fileName", 3,3}, 

{"bogus bogusval", 3, 3} 

} * 

/* c ++ comment 

// These are the segments that need to be declared in the "C" namespace 
// These function names and data will be accessed by programs in the 
// Tel "C" language library. 

*/ 
/* 

extern "C" { 
*/ 

/* 



* plugInst_Cmd 
* 

* plugextName_Cmd is invoked to process the "pluginName" Tel command 

* It will parse a subcommand, and perform the requested action. 
* 

* Results: 

* A standard Tel result. 

if 

* Side effects: 



/ 



int plugInst_Cmd (ClientData plugext, 

Tcl_Interp *interp, 
int objc, 

Tcl_Obj *objv[] ) { 

/* ClientData plugext; 

/* Tcl_Interp *interp; 

/* int objc; 

/* Tcl_Obj *CONST objv[]; 

int cmdnum; 
int result; 
Tcl_Obj *returnValue; 
CmdReturn *returnStruct ; 

/* 

* Initialize the return value 
*/ 

returnValue = NULL; 
re turns true t = NULL; 

/* 

* Check that we have at least a subcommand, 

* else return an Error and the usage message 
*/ 

if (objc < 2) { 

Tcl_WrongNumArgs (interp, 1, objv, 

"subcommand ?fieldName? ?f ieldValue? " ) ; 
return TCL_ERR0R; 

} 

/* 

* Find this plugext subcommand in the list of subcommands. 

* Tcl_GetIndexFromObj returns the offset of the recognized string, 

* which is used to index into the command definitions table. 
V 

result = Tcl_GetIndexFromObj (interp, objv[l], subcommands, 

" subcommand " , TCL_EXACT , &cmdnum) ; 

/* 

* If the result is not TCL_OK, then the error message is already 

* in the Tel Interpreter, this code can immediately return. 
*/ 

if (result != TCL_OK) { 
return TCL_ERROR ; 

} 

/* 

* Check that the argument count matches what's expected for this 

* Subcommand . 
*/ 



/* Not used. */ 
/* Current interpreter. */ 
/* Number of arguments. */ 
/* Argument objects. */ 



if ((objc < definitions [cmdnum] .minArgCnt) || 
(objc > definitions [cmdnum] .maxArgCnt) ) { 

Tcl_WrongNumArgs(inter P/ l, objv, definitions [cmdnum] . usage) ; 
return TCL__ERROR ; 



result = TCL_OK; 
/* 

* The subcommand is recognized, and has a valid number of argument 

* Process the command. 
*/ 

switch (cmdnum) { 
case M_open: { 

returnStruct = 

plugInst_openCmd(NULL, interp, objc, objv); 
break; 

} 

case M_destroy: { 

returnStruct = 

plugInst_destroyCmd(NULL, interp, objc, objv); 
break; 

} 

case M_close: { 

returnStruct = 

plugInst_closeCmd(NULL, interp, objc, objv); 
break; 

} 

case M_setwindow': { 

returnStruct = 

P lugInst_setwindowCmd(NULL, interp, objc, objv); 
break; 

} 

case M_writeready : '{ 
returnStruct = 

plugInst_writereadyCmd(NULL, interp, objc, objv) ; 
break; 

} 

case M_streamf ile : { 

returnStruct = 

pluglnst_streamf ileCmd(NULL, interp, objc, objv) ; 
break; 

} 

case M_streamtype : { 
returnStruct = 

plugInst_streamTypeCmd(NULL, interp, objc, objv) ; 
break; 

} 

case M_sendFile: { 
returnStruct = 

P lugInst_sendFileCmd(NULL, interp, objc, objv) ; 
break; 

} 

default: { 

char error [80] ; 



sprintf (error, "Bad sub-command %s. Has no entry in switch" , 

Tcl_GetStringFromObj (objvtl] , NULL) ) ; 
returnValue = Tcl_NewStringObj (error, -1) ; 
result = TCL_ERROR'; 

} 

} 

/* 

* Extract an object to return from returnStruc . 

* returnStruct will be NULL if the processing is done in this 

* function and no other function is called. 
*/ 

if (returnStruct != NULL) { 

returnValue = returnStruct- >object ; 
result = returnStruct ->status; 
Tcl_Free ((char *) returnStruct ) ; 

} 

/* 

* Set the return value and return the status 
*/ 

if (returnValue != NULL) { 

Tcl_SetObjResult (interp, returnValue) ; 

} 

debugprt ( "leaving plugextlnst Cmd\n M ); f flush (stdout) ; 
return result; 

} 

/* c++ Comment 

// This is the close of the extern "C" section 
*/ 

/* 

} 

*/ 



/* 

* tcl.h -- 
* 

* This, header file describes the externally-visible facilities 

* of the Tel interpreter. 
* 

* Copyright (c) 1987-1994 The Regents of the University of California. 

* Copyright (c) 1994-1997 Sun Microsystems, Inc. 

* Copyright (c) 1993-1996 Lucent Technologies. 

* Copyright (c) 1998-1999 Scriptics Corporation. 
* 

* See the file " license . terms " for information on usage and redistribution 

* of this file, and for a DISCLAIMER OF ALL WARRANTIES. 
* 

* RCS: @(#) $Id: tcl805.h,v 1.1 1999/08/01 14:58:49 clif Exp $ 



#ifndef _TCL 
#define _TCL 

/* 

* When version numbers change here, must also go into the following fil 

* and update the version numbers: 
* 

* README 

* library/init.tcl (only if major. minor changes, not patchlevel) 

* unix/conf igure . in 

* win/makef ile.be (only if major. minor changes, not patchlevel) 

* win/makef ile.vc (only if major. minor changes, not patchlevel) . 

* win/README 

* win/README. binary 

* mac/README 
* 

* The release level should be 0 for alpha, 1 for beta, and 2 for 

* final/patch. The release serial value is the number that follows the 

* "a", »b», or »p'< in the patch level; for example, if the patch level 

* is 7.6b2, TCL_RELEASE_SERIAL is 2 . It restarts at 1 whenever the 

* release level is changed, except for the final release which is 0 

* (the first patch will start at 1) . 
*/ 



#define TCL_MAJOR_VERSION 8 

#define TCL_MINOR_VERSION 0 

#define TCL_RELEASE_LEVEL 2 

#define TCL_RELEASE_SERIAL 5 

#define TCLJ/ERSION "8.0" 
#def ine TCL_PATCH_LEVEL "8.0.5" 

/* 

* The following definitions set up the proper options for Windows 

* compilers. We use this method because there is no autoconf equivalent 
*/ 



#ifndef WIN32 

# if defined (_WIN32) || defined (WIN32 ) 

# define WIN32 



# endif 
ttendif 



#ifdef WIN32 

# ifndef STRICT 

# define STRICT 

# endif 

# ifndef USE_PROTOTYPE 

# define USE_PROTOTYPE 1 

# endif 

# ifndef HAS_STDARG 

# define HAS_STDARG 1 

# endif 

# ifndef USE_PROTOTYPE 

# define USE_PROTOTYPE 1 

# endif 

/* 

* Under Windows we need to call Tcl_Alloc in all cases to avoid competing 

* C run-time library issues. 
*/ 

# ifndef USE_TCLALLOC 

# define USE_TCLALLOC 1 

# endif 

#endif /* WIN32 */ 

/* 

* The following definitions set up the proper options for Macintosh 

* compilers. We use this method because there is no autoconf equivalent. 
*/ 

#ifdef MAC_TCL 

# ifndef HAS_STDARG 

# define HAS_STDARG 1 

# endif 

# ifndef USEJTCLALLOC 

# define USE_TCLALLOC 1 

# endif 

# ifndef NO__STRERROR 

# define N0_STRERR0R 1 

# endif 
#endif 

/* 

* Utility macros: STRINGIFY takes an argument and wraps it in " " (double 

* quotation marks), JOIN joins two arguments. 
*/ 

#define VERBATIM (x) x 
#ifdef _MSC_VER 

# define STRINGIFY (x) STRINGIFY1 (x) 

# define STRINGIFY1 (x) #x 

# define JOIN (a, b) JOINl(a,b) 

# define JOINl(a,b) a##b 
#else 

# ifdef RESOURCE INCLUDED 



# define STRINGIFY (x) STRINGIFY1 (x) 

# define STRINGIFY1 (x) #x 

# define JOIN (a, b) JOINl(a,b) 

# define JOINl(a,b) a##b 

# else. 

# ifdef STDC 

# define STRINGIFY (x) #x 

# define JOIN (a, b) a##b 

# else 

# define STRINGIFY (x) "x" 

# define JOIN (a, b) VERBATIM (a) VERBATIM (b) 

# endif 

# endif 
#endif 



/* 

* A special definition used to allow this header file to be included 

* in resource files so that they can get obtain version information from 

* this file. Resource compilers don't like all the C stuff, like typedefs 

* and procedure declarations, that occur below. 
*/ 



#ifndef RESOURCE_INCLUDED 

#ifndef BUFSIZ 
#include <stdio.h> 
#endif 



* Definitions that allow Tel functions with variable numbers of 

* arguments to be used with either varargs.h or stdarg.h. TCL_VARARGS 

* is used in procedure prototypes. TCL_VARARGS_DEF is used to declare 

* the arguments in a function definiton: it takes the type and name of 

* the first argument and supplies the appropriate argument declaration 

* string for use in the function definition. TCL_VARARGS_START 

* initializes the va_list data structure and returns the first argument. 
*/ 

#if defined ( STDC ) | | defined (HAS_STDARG) 

# define TCL_VARARGS (type , name) (type name, ...) 

# define TCL_VARARGS_DEF ( type , name) (type name, ...) 

# define TCL_VARARGS_START( type, name, list) (va_start ( list , name), name) 
#else 

# ifdef cplusplus 

# define TCL_VARARGS (type, name) (type name, ...) 

# define TCL_VARARGS_DEF (type , name) (type va_alist, ...) 

# else 

# define TCL_VARARGS ( type , name) () 

# define TCL_VARARGS_DEF (type, name) (va_alist) 

# endif 

# define TCL_VARARG S_S TART (type , name, list) \ 

(va_start (list) , va_arg(list, type)) 

#endif 
/* 

* Macros used to declare a function to be exported by a DLL. 

* Used by Windows, maps to no-op declarations on non-Windows systems. 



* The default build on windows is for a DLL, which causes the DLLIMPORT 

* and DLLEXPORT macros to be nonempty. To build a static library, the 

* macro STATIC_BUILD should be defined. 

* The support follows the convention that a macro called BUILD_xxxx, where 

* xxxx is the name of a library we are building, is set on the compile line 

* for sources that are to be placed in the library. See BUILD_tcl in this 

* file for an example of how the macro is to be used 
*/ 

#ifdef WIN32 

# ifdef STATIC_BUILD 

# define DLLIMPORT 

# define DLLEXPORT 

# else 

# if defined (_MSC_VER) || (def ined (_GNUC_) defined (_declspec) ) 

# define DLLIMPORT declspec (dllimport ) 

# define DLLEXPORT declspec (dllexport) 

# else 

# define DLLIMPORT 

# define DLLEXPORT 

# endif 

# endif 
#else 

# define DLLIMPORT 

# define DLLEXPORT 
#endif 



#ifdef TCL_STORAGE_CLASS 

# undef TCL_STORAGE_CLASS 
#endif 

#ifdef BUILD_tcl 

# define TCL_STORAGE_CLASS DLLEXPORT 
#else 

# define TCL_STORAGE_CLASS DLLIMPORT 
#endif 



/* 

* Definitions that allow this header file to be used either with 

* without ANSI C features like function prototypes. 



#undef _ANSI_ARGS 
#undef CONST 



#if ( (defined ( STDC ) || def ined (SABER) ) && ! def ined (NO_PROTOTYPE) ) || 

defined ( cplusplus) | | def ined (USE_PROTOTYPE) 

# define _USING_PROTOTYPES_ 1 

# define _ANSI_ARGS_ (x) x 

# define CONST const 
#else 

# define __ANSI_ARGS_ (x) () 

# define CONST 
#endif 



#ifdef cplusplus 

# define EXTERN extern "C" TCL_STORAGE CLASS 
#else 



# define EXTERN extern TCL_STORAGE__CLAS S 
#endif 

/* 

* Macro to use instead of "void" for arguments that must have 

* type "void *" in ANSI C; maps them to type "char *" in 

* non-ANSI systems. 

*/ 

#ifndef WIN32 

#ifndef VOID 

# ifdef STDC 

# define VOID void 

# else 

# define VOID char 

# endif 
#endif 

#else /* WIN32 */ 

7* 

* The following code is copied from winnt.h 
*/ 

#ifndef VOID 
#define VOID void 
typedef char CHAR; 
typedef short SHORT; 
typedef long LONG; 
#endif 

#endif /* WIN32 */ 

/* 

* Miscellaneous declarations. 
*/ 

#ifndef NULL 
#define NULL 0 
#endif 

#ifndef _CL IENTDATA 

# if defined ( STDC ) || defined ( cplusplus) 

typedef void *ClientData; 

# else 

typedef int *ClientData; 

# endif /* STDC */ 

#define _CL I ENTDATA 
#endif 

/* 

* Data structures defined opaquely in this module. The definitions below 

* just provide dummy types. A few fields are made visible in Tcl_Interp 

* structures, namely those used for returning a string result from 

* commands. Direct access to the result field is discouraged in Tel 8.0. 

* The interpreter result is either an object or a string, and the two 

* values are kept consistent unless some C code sets interp->result 

* directly. Programmers should use either the procedure Tcl_GetObj Result ( ) 

* or Tcl_GetStringResult () to read the interpreter's result. See the 

* SetResult man page for details. 
★ 

* Note: any change to the Tcl_Interp definition below must be mirrored 



* in the "real" definition in tcllnt.h. 

* Note: Tcl_ObjCmdProc procedures do not directly set result and freeProc. 

* Instead, they set a Tcl_Obj' member in the "real" structure that can be • 

* accessed with TclJ3et0bj Result ( ) and Tcl_SetObj Result () . 
*/ 

typedef struct Tcl_Interp { 

char *result; /* If the last command returned a string 

* result, this points to it. */ 
void (*freeProc) _ANSI_ARGS_ ( (char *blockPtr) ) ; 

/* Zero means the string result is 

* statically allocated. TCL_D YNAM I C means 

* it was allocated with ckalloc and should 

* be freed with ckfree. Other values give 

* the address of procedure to invoke to 

* free the result. Tcl_Eval must free it 

* before executing next command. */ 

int errorLine; , /* When TCL_ERROR is returned, this gives 

* the line number within the command where 

* the error occurred (1 if first line) . */ 

} Tcl_Interp; 

typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler ; 

typedef struct Tcl_Channel_ *Tcl_Channel ; 

typedef struct Tcl_Command_ *Tcl_Command; 

typedef struct Tcl_Event Tcl_Event; 

typedef struct Tcl_Pid_ *Tcl_Pid; 

typedef struct Tcl_RegExp_ *Tcl_RegExp; 

typedef struct Tcl_TimerToken_ *Tcl_TimerToken; 

typedef struct Tcl_Trace_ *Tcl_Trace; 

typedef struct Tcl_Var_ *Tcl_Var; 

/* 

* When a TCL command returns, the interpreter contains a result from the 

* command. Programmers are strongly encouraged to use one of the 

* procedures TclJSetObj Result ( ) or Tcl_GetStringResult ( ) to read the 

* interpreter's result. See the SetResult man page for details. Besides 

* this result, the command procedure returns an integer code, which is 

* one of the following: 

* TCL_OK Command completed normally; the interpreter's 

* result contains the command's result. 

* TCL_ERROR The command couldn't be completed successfully; 

* the interpreter's result describes what went wrong. 

* TCL_RETURN The command requests that the current procedure 

* return; the interpreter's result contains the 

* procedure's return value. 

* TCL_BREAK The command requests that the innermost loop 

* be exited; the interpreter's result is meaningless. 

* TCL_CONTINUE Go on to the next iteration of the current loop; 

* the interpreter's result is meaningless. 



#define TCL_OK 0 
#define TCL_ERROR 1 
#define TCL RETURN 2 



#define TCL_BREAK 3 
#define TCL_CONTINUE 4 

#define TCL_RESULT_SIZE 2 00 

/* 

* Argument descriptors for math function callbacks in expressions* 
*/ 

typedef enum {TCL_INT, TCL_DOUBLE, TCL_EITHER} Tcl_ValueType ; 
typedef struct Tcl_Value { 

Tcl_ValueType type; /* Indicates intValue or doubleValue is 

* valid, or both. */ 

long intValue; /* Integer value. */ 

double doubleValue; /* Double-precision floating value. */ 

} Tcl_Value; 

/* 

* Forward declaration of Tcl_Obj to prevent an error when the forward 

* reference to Tcl_Obj is encountered in the procedure types declared 

* below. 

*/ 

struct Tcl_0bj ; 
/* 

* Procedure types defined by Tel: 
*/ 

typedef int (Tcl_AppInitProc) _ANSI_ARGS_ ( <Tcl_Interp *interp) ) ; 
typedef int (Tcl__AsyncProc) _ANSI_ARGS_ ( (ClientData ClientData, 

Tcl_Interp *interp, int code)); 
typedef void (Tcl_ChannelProc) _ANSI_ARGS_ ( (ClientData ClientData, int mask) ) ; 
typedef void (Tcl_CloseProc) _ANSI_ARGS_ ( (ClientData data)); 
typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_ ( (ClientData ClientData)); 
typedef int (Tcl_CmdProc) _ANSI_ARGS_ ( (ClientData ClientData, 

Tcl_Interp *interp, int argc, char *argv[])); 
typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_( (ClientData ClientData, 

Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, 

ClientData cmdClientData, int argc, char *argv[])) ; 
typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_ ( (struct Tcl_Obj *srcPtr, 

struct Tcl_Obj *dupPtr) ) ; 
typedef int (Tcl_EventProc) _ANSI_ARGS_ ( (Tcl_Event *evPtr, int flags)); 
typedef void (Tcl_EventCheckProc) _ANSI_ARGS_ ( (ClientData ClientData, 

int flags) ) ; 

typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_ ( (Tcl_Event *evPtr, 

ClientData ClientData) ) ; 
typedef void (Tcl_EventSetupProc) _ANSI_ARGS_ ( (ClientData ClientData, 
int flags) ) ; 

typedef void (Tcl_ExitProc) _ANSI_ARGS_ ( (ClientData ClientData)); 
typedef void (Tcl_FileProc) _ANSI_ARGS_( (ClientData ClientData, int mask)); 
typedef void (Tcl_FileFreeProc) _ANSI_ARGS_( (ClientData ClientData)); 
typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_ ( (struct Tcl_Obj *objPtr) ) ; 
typedef void (Tcl_FreeProc) _ANSI_ARGS_ ( (char *blockPtr) ) ; 
typedef void (Tcl_IdleProc) _ANSI_ARGS_ ( (ClientData ClientData)); 
typedef void (Tcl_InterpDeleteProc) __ANSI_ARGS_ ( (ClientData ClientData, 
Tcl_Interp *interp) ) ; 



typedef int (Tcl_MathProc) _ANSI_ARGS_ ( (ClientData clientData, 

Tcl_Interp *interp / Tcl_Value *args, Tcl_Value *resultPtr) ) ; 
typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_ ( (ClientData clientData)); 
typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_ ( (ClientData clientData, 

Tcl_Interp *interp, int objc, struct TcljDbj * CONST objv[])) ; 
typedef int (Tcl_PackageInitProc) _ANSI_ARGS_ ( (Tcl_Interp *interp) ) • 
typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_ ( (ClientData callbackData, 

Tcl_Channel chan, char *address, int port)); 
typedef void (Tcl_TimerProc) _ANSI_ARGS_ ( (ClientData clientData)); 
typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_ ( (Tcl_Interp *interp, 

struct Tcl_Obj *objPtr)); 
typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_ ( (struct Tcl_Obj *objPtr) ) ; 
typedef char * (Tcl_VarTraceProc) _ANSI_ARGS_ ( (ClientData clientData, 

Tcl_Interp *interp, char *partl, char *part2, int flags)); 

/* 

* The following structure represents a type of object, which is a 

* particular internal representation for an object plus a set of 

* procedures that provide standard operations on objects of that type. 
*/ 

typedef struct Tel jDbj Type { 

char *name; /* Name of the type, e.g. "int". */ 

Tcl_FreeInternalRepProc *f reelntRepProc ; 

/* Called to free any storage for the type's 

* internal rep. NULL if the internal rep 

* does not need freeing. */ 
TclJDupInternalRepProc *dupIntRepProc ; 

/* Called to create a new object as a copy 

* of an existing object. */ 
Tcl_UpdateStringProc *updateStringProc ; 

/* Called to update the string rep from the 

* type's internal representation. */ 
Tcl_SetFromAnyProc *setFromAnyProc ; 

/* Called to convert the object's internal 

* rep to this type. Frees the internal rep 

* of the old type. Returns TCL_ERROR on 

* failure. */ 

} Tcl_ObjType; 
/* 

* One of the following structures exists for each object in the Tel 

* system. An object stores a value as either a string, some internal 

* representation, or both. 
*/ 

typedef struct Tcl_Obj { 

int ref Count; /* when 0 the object will be freed. */ 

char *bytes ; /* This points to the first byte of the 

* object's string representation. The array 

* must be followed by a null byte (i.e., at 

* offset length) but may also contain 

* embedded null characters. The array's 

* storage is allocated by ckalloc. NULL 

* means the string rep is invalid and must 

* be regenerated from the internal rep. 

* Clients should use Tcl_GetStringFromObj 



int length; 
Tcl_ObjType *typePtr; 



union { /* 
long longValue; 
double doubleValue; 
VOID *otherValuePtr; 
struct { /* 
VOID *ptrl; 
VOID *ptr2; 
} twoPt rvalue; 
} internalRep; 
} Tcl_Obj; 



to get a pointer to the byte array as a 
readonly value. */ 

/* The number of bytes at *bytes, not 
including the terminating null. */ 

/* Denotes the object's type. Always 
corresponds to the type of the object's 
internal rep. NULL indicates the object 
has no internal rep (has no type) . */ 
The internal representation: */ 

/* - an long integer value */ 

/* - a double-precision floating value */ 

/* - another, type-specific value */ 
- internal rep as two pointers */ 



/* 

* Macros to increment and decrement a Tcl_Obj's reference count, and to 

* test whether an object is shared (i.e. has reference count > 1) . 

* Note: clients should use Tcl_DecrRef Count ( ) when they are finished using 

* an object, and should never call TclFreeObj () directly. TclFreeObjO is 

* only defined and made public in tcl.h to support Tcl_DecrRef Count ' s macro 

* definition. Note also that Tcl_DecrRef Count ( ) refers to the parameter 

* "obj" twice. This means that you should avoid calling it with an 

* expression that is expensive to compute or has side effects. 
*/ 

EXTERN void Tcl_IncrRef Count _ANSI_ARGS_ ( (Tcl_Obj *objPtr)); 

EXTERN void TclJDecrRef Count _ANSI_ARGS_ ( (Tcl_Obj *objPtr)); 

EXTERN int Tcl_IsShared _ANSI_ARGS_( (Tcl_Obj *objPtr)); 

#ifdef TCL_MEM_DEBUG 

# define Tcl_IncrRef Count (obj Ptr) \ 

Tcl_DbIncrRef Count (obj Ptr, FILE , LINE ) 

# define Tcl_DecrRef Count (obj Ptr) \ 

Tcl_DbDecrRef Count (obj Ptr, FILE , LINE ) 

# define Tcl_IsShared (obj Ptr) \ 

Tcl_DbIsShared(objPtr, FILE , LINE ) 

#else 

# define Tcl_IncrRef Count (obj Ptr) \ 

++ (obj Ptr) ->ref Count 

# define Tcl_DecrRef Count (obj Ptr) \ 

if (-- (objPtr) ->refCount <= 0) TclFreeObj (obj Ptr) 

# define Tcl_IsShared (obj Ptr) \ 

( (obj Ptr) ->ref Count > 1) 

#endif 
/* 

* Macros and definitions that help to debug the use of Tel objects. 

* When TCL_MEM_DEBUG is defined, the Tcl_New* declarations are 

* overridden to call debugging versions of the object creation procedures. 
*/ 

EXTERN TclJDbj * Tcl_NewBooleanOb j _ANSI_ARGS_( (int bool Value) ) ; 



EXTERN Tcl_Obj * Tcl_NewDoubleOb j _ANSI_ARGS_ ( (double doubleValue) ) ; 
EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_ ( ( int intValue) ) ; 
EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_ ( ( int objc, 

Tcl_Obj *CONST objv[] ) ) ; 
EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_ ( (long longValue) ) ; 
EXTERN Tcl_Obj- * Tcl_NewObj _ANSI_ARGS_( (void) ) / 
EXTERN TclJDbj * Tcl_NewStringObj _ANSI_ARGS_ ( (char *bytes, 

int length) ) ; 

#ifdef TCL_MEM_DEBUG 

# define Tcl_NewBooleanObj (val) \ 

Tcl_DbNewBooleanObj (val, FILE , LINE ) 

# define Tcl_NewDoubleObj (val) \ 

Tcl_DbNewDoubleObj (val, FILE , LINE ) 

# define Tcl_NewIntObj (val) \ 

TclJDbNewLongObj (val, FILE , LINE ) 

# define Tcl_NewListObj (objc, objv) \ 

Tcl_DbNewListObj (objc, objv, FILE , LINE ) 

# define Tcl__NewLongObj (val) \ 

Tcl_DbNewLongObj (val, FILE , LINE ) 

# define Tcl_NewObj() \ 

TclJDbNewObj ( FILE , LINE ) 

# define Tcl_NewStringObj (bytes , len) \ 

Tcl_DbNewStringObj (bytes, len, FILE , LINE ) 

#endif /* TCL_MEM_DEBUG */ 

/* 

* The following definitions support Tel ■ s namespace facility. 

* Note: the first five fields must match exactly the fields in a 

* Namespace structure (see tcl.h) 
*/ 

typedef struct Tcl_Namespace { 

char *name; /* The namespace's name within its parent 

* namespace. This contains no ::'s. The 

* name of the global namespace is 

* although "::" is an synonym. */ 

char *fullName; /* The namespace's fully qualified name. 

* This starts with : : . */ 

ClientData clientData; /* Arbitrary value associated with this 

* namespace. */ 
Tcl_NamespaceDeleteProc* deleteProc; 

/* Procedure invoked when deleting the 

* namespace to, e.g., free clientData. */ 
struct Tcl_Namespace* parentPtr; 

/* Points to the namespace that contains 

* this one. NULL if this is the global 

* namespace. */ 

} Tcl_Namespace; 



The following structure represents a call frame, or activation record. 
A call frame defines a naming context for a procedure call: its local 
scope (for local variables) and its namespace scope (used for non-local 
variables; often the global :: namespace). A call frame can also define 
the naming context for a namespace eval or namespace inscope command: 
the namespace in which the command's code should execute. The 



* Tcl_CallFrame structures exist only while procedures or namespace 

* eval/inscope ' s are being executed, and provide a Tel call stack. 
* 

* A call frame is initialized and pushed using Tcl_PushCallFrame and 

* popped using Tcl_PopCallFrame . Storage for a Tcl_CallFrame must be 

* provided by the Tcl_PushCallFrame caller, and callers typically allocate 

* them on the C call stack for efficiency. For this reason, Tcl_CallFrame 

* is defined as a structure and not as an opaque token. However, most 

* Tcl_CallFrame fields are hidden since applications should not access 

* them directly; others are declared as "dummyX". 
★ 

* WARNING ! ! The structure definition must be kept consistent with the 

* CallFrame structure in tcllnt.h. If you change one, change the other 
*/ 



typedef struct Tcl_CallFrame { 

Tcl_Namespace *nsPtr; 

int dummyl ; 

int dummy2 ; 

char *dummy3; 

char * dummy 4; 

char * dummy 5; 

int dummy6 ; 

char *dummy7; 

char *dummy8; 

int dummy 9 ; 

char* dummylO; 
} Tcl_Cal 1 Frame ; 



/* 

* Information about commands that is returned by Tcl_GetCommandInf o and 

* passed to Tcl_SetCommandInf o . objProc is an obje/objv object -based 

* command procedure while proc is a traditional Tel argc/argv 

* string-based procedure. Tcl_CreateObj Command and Tcl_CreateCommand 

* ensure that both objProc and proc are non-NULL and can be called to 

* execute the command. However, it may be faster to call one instead of 

* the other. The member isNativeObjectProc is set to 1 if an 

* object -based procedure was registered by Tcl_CreateObj Command, and to 

* 0 if a string-based procedure was registered by Tcl_CreateCommand . 

* The other procedure is typically set to a compatibility wrapper that 

* does string-to-object or object-to-string argument conversions then 

* calls the other procedure. 
*/ 

typedef struct Tcl_CmdInfo { 

int isNativeObjectProc; /* 1 if objProc was registered by a call to 

* Tcl_CreateObj Command; 0 otherwise. 

* Tcl_SetCmdInfo does not modify this 

* field. */ 

Tcl_ObjCmdProc *objProc; /* Command's object -based procedure. */ 
ClientData objClientData; /* ClientData for object proc. */ 
Tcl_CmdProc *proc; /* Command's string-based procedure. */ 

ClientData ClientData; /* ClientData for string proc. */ 

Tcl__CmdDeleteProc *deleteProc; 

/* Procedure to call when command is 
* deleted. */ 

ClientData deleteData; /* Value to pass to deleteProc (usually 



* the same as clientData) . */ 
Tcl_Namespace *namespacePtr ; /* Points to the namespace that contains 

* this command. Note that Tcl_SetCmdInf o 

* will not change a command's namespace; 

* use Tcl_RenameCommand to do that.' */ 

} Tcl_CmdInfo; 
/* 

* The structure defined below is used to hold dynamic strings. The only 

* field that clients should use is the string field, and they should 

* never modify it. 
*/ 

#define TCL_DSTRING_STATIC_SIZE 2 00 
typedef struct TclJDString { 

char *string; /* Points to beginning of string: either 

* staticSpace below or a malloced array. */ 
int length; /* Number of non-NULL characters in the 

* string. */ 

int spaceAvl; /* Total number of bytes available for the 

* string and its terminating NULL char. */ 
char staticSpace [TCL_DSTRING_STATIC_SIZE] ; 

/* Space to use in common case where string 

* is small. */ 

} Tcl_DString; 

#define Tcl_DStringLength (dsPtr) ( (dsPtr) ->length) 
#def ine Tcl_DStringValue (dsPtr) ( (dsPtr) ->string) 
#define Tcl_DStringTrunc Tcl_DStringSetLength 

/* 

* Definitions for the maximum number of digits of precision that may 

* be specified in the "tcljprecision" variable, and the number of 

* characters of buffer space required by Tel PrintDouble. 
*/ 

#define TCL_MAX_PREC 17 

#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10 ) 
/* 

* Flag that may be passed to Tcl__ConvertElement to force it not to 

* output braces (careful! if you change this flag be sure to change 

* the definitions at the front of tclUtil.c). 
*/ 

#define TCL_DONTJJSE_B RACES 1 
/* 

* Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow 

* abbreviated strings. 
*/ 

#define TCL_EXACT 1 
/* 

* Flag values passed to Tcl_RecordAndEval . 



* WARNING: these bit choices must not conflict with the bit choices 

* for evalFlag bits in tcllnt.h!! 
*/ 



#define TCL_NO_EVAL 0x10000 
#define TCL_EVAL_GLOBAL 0x2 0000 

/* 

* Special freeProc values that may be passed to Tcl_SetResult (see 

* the man page for details) : 
*/ 



#define TCL_VOLATILE ( (Tcl_FreeProc *) 1) 
#define TCL_STATIC ( (Tcl_FreeProc *) 0) 

#define TCL_D YNAM I C ( (Tcl_FreeProc *) 3) 

/* 

* Flag values passed to variable-related procedures. 
*/ 



#define TCL_GLOBAL_0NLY 1 

#define TCL__NAMESPACE_ONLY 2 

#define TCL__APPEND_VALUE 4 

#define TCL_LIST_ELEMENT 8 

#define TCL_TRACE_READS 0x10 

#define TCL_TRACE_WRITES 0x2 0 

#define TCL_TRACE_UNSETS 0x40 

#define TCL_TRACE_DESTROYED 0x80 

#define TCL_INTERP_DESTROYED 0x100 

#define TCL_LEAVE_ERR_MSG 0x2 00 

#define TCL PARSE PARTI 0x400 



/* 

* Types for linked variables: 
*/ 



#define TCL_LINK_INT 1 

#define TCL_LINK_DOUBLE 2 

#define TCL_LINK_BOOLEAN 3 

#define TCL_LINK_STRING 4 

#define TCL LINK READ ONLY 0x80 



* The following declarations either map ckalloc and ckfree to 

* malloc and free, or they map them to procedures with all sorts 

* of debugging hooks defined in tclCkalloc . c . 
*/ 

EXTERN char * Tcl_Alloc _ANSI_ARGS_ ( (unsigned int size)); 

EXTERN void Tcl_Free _ANSI_ARGS_ ( (char *ptr) ) / 

EXTERN char * Tcl_Realloc _ANSI_ARGS_ ( (char *ptr # 

unsigned int size) ) ; 

#ifdef TCL_MEM_DEBUG 

# define Tcl_Alloc(x) Tcl_DbCkalloc (x, FILE , LINE ) 

# define Tel Free (x) Tel DbCkfree(x, FILE , LINE ) 



# define Tcl_Realloc (x,y) Tcl_DbCkrealloc ( (x) , (y) , FILE , LINE ) 

# define ckalloc(x) Tcl_DbCkalloc (x, FILE , LINE ) 

# define ckfree(x) Tcl_DbCkf ree (x, FILE , LINE ) 

# define ckrealloc (x, y) Tcl_DbCkrealloc ( (x) , (y) , FILE , LINE ) 

EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_ ( (char *f ileName) ) ; 

EXTERN void Tcl_ValidateAllMemory _ANSI__ARGS_ ( (char *file, 

int line) ) ; 

#else 
/* 

* If USE_TCLALLOC is true, then we need to call Tcl_Alloc instead of 

* the native malloc/free. The only time USE_TCLALLOC should not be 

* true is when compiling the Tcl/Tk libraries on Unix systems. In this 

* case we can safely call the native malloc/free directly as a performance 

* optimization. 
*/ 

# if USE_TCLALLOC 

# define ckalloc(x) Tcl_Alloc(x) 

# define ckfree(x) Tcl_Free (x) 

# define ckrealloc (x, y) Tcl_Realloc (x, y) 

# else 

# define ckalloc (x) malloc (x) 

# define ckf ree (x) f ree (x) 

# define ckrealloc (x, y) realloc(x,y) 

# endif 

# define Tcl_DumpActiveMemory (x) 

# define Tcl_Vali date All Memory (x, y) 

#endif /* TCL_MEM_DEBUG */ 
/* 

* Forward declaration of Tcl_HashTable . Needed by some C++ compilers 

* to prevent errors when the forward reference to Tcl_HashTable is 

* encountered in the Tcl_HashEntry structure. 
*/ 

#ifdef cplusplus 

struct Tcl_HashTable; 
ttendif 

/* 

* Structure definition for an entry in a hash table. No-one outside 

* Tel should access any of these fields directly; use the macros 

* defined below. 
*/ 

typedef struct Tcl_HashEntry { 

struct Tcl_HashEntry *nextPtr; /* Pointer to next entry in this 

* hash bucket, or NULL for end of 

* chain. */ 

struct Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ 
struct Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to 

* first entry in this entry's chain: 

* used for deleting the entry. */ 



ClientData clientData; 

union { 

char *oneWordValue / 
int words [1] ; 



char string [4] ; 



/* Application stores something here 

* with Tcl_SetHashValue. */ 
/* Key has one of these forms: */ 

/* One-word value for key. */ 
/* Multiple integer words for key. 

* The actual size will be as large 

* as necessary for this table's 

* keys. */ 
/* String for key. The actual size 

* will be as large as needed to hold 

* the key. "*/ 

} key; /* MUST BE LAST FIELD IN RECORD! ! */ 

} Tcl_HashEntry; 

/* 

* Structure definition for a hash table. Must be in tcl.h so clients 

* can allocate space for these structures, but clients should never 

* access any fields in this structure. 
*/ 



#define TCL_SMALL_HASH_TABLE 4 
typedef struct Tcl_HashTable { 

Tcl_HashEntry **buckets; /* Pointer to bucket array. Each 

* element points to first entry in 

* bucket's hash chain, or NULL. */ 
Tcl_HashEntry *staticBuckets [TCL_SMALL_HASHJTABLE] ; 



/* Bucket array used for small tables 
(to avoid mallocs and frees) . */ 

/* Total number of buckets . allocated 
at **bucketPtr. */ 

/* Total number of entries present 
in table. */ 

/* Enlarge table when numEntries gets 
to be this large. */ 

/* Shift count used in hashing 
function. Designed to use high- 
order bits of randomized keys. */ 

/* Mask value used in hashing 
function. */ 

Type of keys used in this table. 

* It's either TCL_STRING_KEYS , 

* TCL_ONE_WORD_KEYS , or an integer 

* giving the number of ints that 

* is the size of the key. 

*/ 

Tcl_HashEntry *(*findProc) _ANSI_ARGS_ ( (struct Tcl_HashTable *tablePtr, 
CONST char *key) ) ; 

Tcl_HashEntry * ( *createProc) _ANSI_ARGS_ ( (struct Tcl_HashTable *tablePtr, 
CONST char *key, int *newPtr) ) ; 
} Tcl_HashTable; 



int numBucketS; 
int numEntries; 
int rebuildSize; 
int downshift; 

int mask; 
int keyType; 



* Structure definition for information used to keep track of searches 

* through hash tables : 



typedef struct Tcl_HashSearch { 



Tcl_HashTable *tablePtr; /* Table being searched. */ 

mt nextlndex; /* Index of next bucket to be 

* enumerated after present one. */ 
Tcl_HashEntry *nextEntryPtr ; /* Next entry to be enumerated in the 

* the current bucket. */ 

} Tcl_HashSearch; 
/* 

* Acceptable key types for hash tables: 
*/ 

#define TCL_STRING__KEYS 0 
#define TCL_ONE_WORD_KEYS 1 

/* 

* Macros for clients to use to access fields of hash entries: 
*/ 

#def ine Tcl_GetHashValue (h) ( <h) ->clientData) 

Jdefine Tcl_SetHashValue(h, value) ( (h) ->clientData = (ClientData) (value)) 
#define Tcl_GetHashKey (tablePtr , h) \ 

((char *) ( ( (tablePtr) ->keyType == TCL ONE WORD KEYS) ? (h) - 
>key.oneWordValue \ ~ 

: (h) ->key. string) ) 

/* 

* Macros to use for clients to use to invoke find and create procedures 

* for hash tables: 
*/ 

#define Tcl_FindHashEntry (tablePtr , key) \ 

(* ( (tablePtr) ->f indProc) ) (tablePtr, key) 
#define Tcl_CreateHashEntry (tablePtr , key, newPtr) \ 

(*( (tablePtr) ->createProc) ) (tablePtr, key, newPtr) 



Flag values to pass to Tcl_DoOneEvent to disable searches 
for some kinds of events: 



*/ 

#define TCLJDONT_WAIT (1<<1) 

#define TCL_WINDOW_EVENTS (1<<2) 

#define TCL_FILE_E VENTS (1<<3) 

#define TCL_T I MER_E VENTS (1<<4) 

#define TCL_IDLE_EVENTS (1«5) /* WAS 0x10 ???? */ 

#define TCL_ALL_E VENTS (-TCL_DONT_WAIT) 

/* 

* The following structure defines a generic event for the Tel event 

* system. These are the things that are queued in calls to Tel QueueEvent 

* and serviced later by Tcl_DoOneEvent . There can be many different 
kinds of events with different fields, corresponding to window events 
timer events, etc. The structure for a particular event consists of ' 
a Tcl_Event header followed by additional information specific to that 
event. 



* 
* 
* 

*/ 



struct Tcl_Event { 

Tcl_EventProc *proc; /* Procedure to call to service this event. */ 

struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. 

*/ 

}; 
/* 

* Positions to pass to Tcl_QueueEvent : 
*/ 

typedef enum { 

TCL J2UEUE JTAI L , TCL_QUEUE_HEAD , TCL_QUEUE_MARK 
} Tcl_QueuePosition; 

/* 

* Values to pass to Tcl_SetServiceMode to specify the behavior of notifier 

* event routines . 
*/ 

#define TCL_SERVICE_NONE 0 
#define TCLJSERVICE_ALL 1 

/* 

* The following structure keeps is used to hold a time value, either as 

* an absolute time (the number of seconds from the epoch) or as an 

* elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. 

* On Macintosh systems the epoch is Midnight Jan 1, 1904 GMT. 
*/ 

typedef struct Tcl_Time { 

long sec; 

long usee; 
} Tcl_Time; 

/* 

* Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler 

* to indicate what sorts of events are of interest: 
*/ 

#define TCL_READABLE (1<<1) 
#define TCL_WRITABLE (1<<2) 
#define TCL_EXCEPTION (1«3) 

/* 

* Flag values to pass to Tcl_OpenCommandChannel to indicate the 

* disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, 

* are also used in Tcl_GetStdChannel . 
*/ 

#define TCL_STDIN (1<<1) 
#define TCL_STDOUT (1«2) 
#define TCL_STDERR (1«3) 
#define TCL_ENFORCE_MODE (1«4) 

/* 

* Typedef s for the various operations in a channel type: 
*/ 



/* Seconds. */ 

/* Microseconds. */ 



typedef int (Tcl_DriverBlockModeProc) _ANS I__ARGS_ ( ( 

ClientData instanceData, int mode) ) ; 
typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_ ( (ClientData instanceData, 

Tcl_Interp *interp) ) ; 
typedef int (Tcl_DriverInputProc) _ANSI_ARGS_ ( (ClientData instanceData, 

char *buf, int toRead, int *errorCodePtr) ) ; 
typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_ ( (ClientData instanceData, 

char *buf, int toWrite, int *errorCodePtr) ) ,* 
typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_( (ClientData instanceData, 

long offset, int mode, int *errorCodePtr) ) ; 
typedef int (Tel JDriverSetOptionProc) _ANSI_ARGS_( ( 

ClientData instanceData, Tcl_Interp *interp, 
char *optionName, char *value) ) ; 
typedef int (Tcl_DriverGetOptionProc) _ANS I_ARGS_ ( ( 

ClientData instanceData, Tcl_Interp *interp, 

char *optionName, Tcl_DString *dsPtr) ) ; 
typedef void (Tcl_DriverWatchProc) _ANSI_ARGS__ ( ( 

ClientData instanceData, int mask) ) ; 
typedef int (Tcl_DriverGetHandleProc) _ANS I_ARGS_ ( ( 

ClientData instanceData, int direction, 

ClientData *handlePtr) ) ; 

/* 

* Enum for different end of line translation and recognition modes. 
*/ 

typedef enum Tcl_EolTranslation { 

TCL_TRANSLATE_AUTO, /* Eol == \r, \n and \r\n. */ 

TCL_TRANSLATE_CR, /* Eol == \r. */ 

TCL_TRANSLATE_LF, /* Eol == \n. */ 

TCL_TRANSLATE_CRLF /* Eol == \r\n. */ 

} Tcl_EolTranslation; 



/* 
★ 



struct Tcl_ChannelType : 

One such structure exists for each type (kind) of channel. 
It collects together in one place all the functions that are 
part of the specific channel type. 
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typedef struct Tcl_ChannelType { 

char *typeName; /* The name of the channel type in Tel 

* commands. This storage is owned by 

* channel type . */ 
Tcl_DriverBlockModeProc *blockModeProc ; 

/* Set blocking mode for the 

* raw channel. May be NULL. */ 
Tcl_DriverCloseProc *closeProc; /* Procedure to call to close 

* the channel. */ 
Tcl_DriverInputProc *inputProc; /* Procedure to call for input 

* on channel . */ 

TclJDriverOutputProc *outputProc; /* Procedure to call for output 

* on channel . */ 
Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek 

* on the channel. May be NULL. */ 



Tcl_DriverSetOptionProc *setOptionProc ; 

/* Set an option on a channel. */ 
Tcl_DriverGetOptionProc *getOptionProc ; 

/* Get an option from a channel. */ 
Tcl_DriverWatchProc *watchProc; /* Set up the notifier to watch 

* for events on this channel. */ 
Tcl_DriverGetHandleProc *getHandleProc ; 

/* Get an OS handle from the channel 

* or NULL if not supported. */ 
VOID ^reserved; /* reserved for future expansion */ 

} Tcl_ChannelType; 

/* 

* The following flags determine whether the blockModeProc above should 

* set the channel into blocking or nonblocking mode. They are passed 

* as arguments to the blockModeProc procedure in the above structure. 
*/ 

#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ 

#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking 

* mode. */ 



/* 

* Enum for different types of file paths. 
*/ 

typedef enum Tcl_PathType { 

TCL_PATH_AB SOLUTE , 

TCL_PATH_RE L AT I VE , 

TCL_PATH_VOLUME_RELATIVE 
} Tcl_PathType; 

/* 

* Exported Tel procedures: 
*/ 



EXTERN 


void 


EXTERN 


void 


EXTERN 


void 


EXTERN 


int 


EXTERN 


void 


EXTERN 


void 


EXTERN 


void 


EXTERN 


void 


EXTERN 


Tel J 


EXTERN 


void 


EXTERN 


int 


EXTERN 


void 



Tcl_AddErrorInfo _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *message) ) ; 
Tcl_AddObjErrorInfo _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *message / int length) ) ; 
Tcl_AllowExceptions _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 
Tcl_AppendA110bj Types _ANSI_ARGS_( ( 

Tcl_Interp *interp, Tcl_Obj *objPtr) ) ; 
Tcl_AppendElement _ANSI_ARGS_( (Tcl_Interp *interp, 

char *string) ) ; 
Tcl_AppendResult _ANSI_ARGS_( 

TCL_VARARGS (Tcl_Interp * , interp) ) ; 
Tcl_AppendToObj _ANSI_ARGS_ ( (TclJDbj *objPtr, 

char *bytes, int length)); 
Tcl_AppendStringsToObj _ANSI_ARGS_( 

TCL^VARARGS (Tcl_Obj * , interp) ) ; 
andler Tcl_AsyncCreate _ANSI_ARGS_ ( (Tcl_AsyncProc *proc, 

ClientData clientData) ) ; 
Tcl_AsyncDelete _ANSI_ARGS_ ( (Tcl_AsyncHandler async) ) ; 
Tcl_Async Invoke _ANSI_ARGS_ ( (Tcl_Interp *interp, 

int code) ) ; 

Tcl_AsyncMark _ANSI_ARGS_ ( (Tcl_AsyncHandler async)); 



EXTERN int Tcl_ 
EXTERN void Tcl_ 
EXTERN char Tcl_ 

EXTERN int ' Tcl_ 

EXTERN void Tcl_ 

EXTERN void Tcl_ 

#define Tcl_Ckalloc Tc 
tdefine Tcl_Ckfree Tel 
#define Tcl_Ckrealloc 
EXTERN int Tcl_ 

EXTERN int Tcl_ 
EXTERN char * 
EXTERN Tcl_Obj * Tel J 



EXTERN int 
EXTERN int 
EXTERN int 
EXTERN int 

EXTERN int 



Tcl_ 
Tcl_ 
Tcl_ 
Tcl_ 

Tel 



EXTERN Tcl_Channel 
EXTERN void Tcl_ 
EXTERN void Tcl_ 
EXTERN Tcl_Command 

EXTERN void Tcl_ 

EXTERN void Tcl_ 
EXTERN void Tel 



EXTERN Tcl_Interp * 
EXTERN void Tel 



AsyncReady _ANSI_ARGS_{ (void) ) ; 

BackgroundError _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 
Backslash _ANSI_ARGS_( (CONST char *src, 
int *readPtr) ) ; 

BadChannelOption _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *optionName, char *optionList) ) ; 
CallWhenDeleted _ANSI_ARGS_( (Tcl_Interp *interp, 
Tcl_InterpDeleteProc *proc, 
ClientData clientData) ) ; 

CancelldleCall _ANSI_ARGS_ ( (Tcl_IdleProc *idleProc, 
ClientData clientData) ) ; 
l_Alloc 
_Free 

Tcl_Realloc 

Close _ANSI_ARGS_( (Tcl_Interp *interp, 
Tcl_Channel chan) ) ; 

CommandComplete _ANSI_ARGS_ ( (char *cmd) ) ; 

Tcl_Concat _ANSI_ARGS_ ( (int argc, char **argv) ) ; 
ConcatObj _ANSI_ARGS_ ( (int objc, 
Tcl_Obj * CONST objv [] ) ) ; 

ConvertCountedElement _ANSI_ARGS_ ( (CONST char *src, 
int length, char *dst, int flags)); 
ConvertElement _ANSI_ARGS_ ( (CONST char *src, 
char *dst, int flags)); 

ConvertToType _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *objPtr / Tcl_ObjType *typePtr) ) ; 
CreateAlias _ANSI_ARGS_ ( (Tcl_Interp *slave, 
char *slaveCmd, Tcl_Interp *target # 
char *targetCmd / int argc, char **argv) ) ; 
CreateAliasObj _ANSI_ARGS_ ( (Tcl_Interp *slave, 
char *slaveCmd, Tcl_Interp *target, 
char *targetCmd, int objc, 

TclJDbj *CONST objv[] ) ) ; 

Tcl_CreateChannel _ANS I_ARGS_ ( ( 
Tcl_ChannelType *typePtr, char *chanName, 

ClientData instanceData, int mask) ) ; 
CreateChannelHandler _ANS I_ARGS_ ( ( 
Tcl_Channel chan, int mask, 

Tcl_ChannelProc *proc, ClientData clientData)); 
CreateCloseHandler _ANS I_ARGS_ ( ( 
Tcl_Channel chan, Tcl_CloseProc *proc, 
ClientData clientData) ) ; 

Tcl_CreateCommand _ANST_ARGS_ ( (Tcl_Interp *interp, 
char *cmdName, Tcl_CmdProc *proc, 
ClientData clientData, 
Tcl_CmdDeleteProc *deleteProc) ) ; 
CreateEventSource _ANSI_ARGS_ ( ( 
Tcl_EventSetupProc *setupProc, 
Tcl_EventCheckProc *checkProc, 
ClientData clientData) ) ; 

CreateExitHandler _ANSI_ARGS_ ( (Tcl_ExitProc *proc, 

ClientData clientData) ) ; 

CreateFileHandler _ANSI_ARGS_ ( ( 

int fd, int mask, Tcl_FileProc *proc, 

ClientData clientData) ) ; 

Tcl_CreateInterp _ANSI_ARGS_( (void) ) ; 
CreateMathFunc _ANSI_ARGS_ ( (Tcl_Interp *interp, 



EXTERN Tcl_Command 

EXTERN Tcl_Interp * 
EXTERN TclJTimerToken 
EXTERN Tel Trace Tel 



EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 
EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 



char * 
int 

char * 
void 
void 
int 

Tcl_Obj * 

Tcl_Obj * 

Tcl_Obj * 

Tcl_Obj * 

Tcl_Obj * 
Tcl_Obj * 

void 

int 

int 

void 



EXTERN void 



EXTERN void 



EXTERN void 



EXTERN void 
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char *name, int numArgs, Tcl_ValueType *argTypes, 
Tcl_MathProc *proc, ClientData clientData)); 

Tcl_CreateObj Command _ANS I_ARGS_ ( ( 
Tcl_Interp *interp, char *cmdName, 
Tcl_ObjCmdProc *proc, ClientData clientData, 
Tcl_CmdDeleteProc *deleteProc) ) ; 

Tcl_CreateSlave _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *slaveName, int isSafe) ) ; 

Tcl_CreateTimerHandler _ANSI_ARGS_ ( < int milliseconds, 
Tcl_TimerProc *proc, ClientData clientData)); 
_CreateTrace __ANSI_ARGS_ ( (Tcl_Interp *interp, 
int level, Tcl_CmdTraceProc *proc, 
ClientData clientData) ) ; 

Tcl_DbCkalloc _ANSI_ARGS_ ( (unsigned int size, 
char *file, int line)); 
_DbCkfree _ANSI_ARGS_( (char *ptr, 
char *file, int line) ) ; 

TclJDbCkrealloc _ANSI_ARGS_ ( (char *ptr # 
unsigned int size, char *file, int line) ) ; 
DbDecrRef Count _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
char *file, int line) ) ; 

DblncrRefCount _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
char *file, int line) ) ; 

DblsShared _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
char *file, int line) ) ; 

DbNewBooleanObj _ANSI_ARGS_ ( ( int boolValue, 

char *file, int line)); 
DbNewDoubleObj _ANSI_ARGS_ ( (double doubleValue, 

char *file, int line)); 
JDbNewListObj _ANSI_ARGS_ { (int objc, 
Tcl_Obj *CONST objv[], char *file, int line) ) ; 
DbNewLongObj _ANSI_ARGS_ ( (long longValue, 

char *file, int line) ) ; 
DbNewObj _ANSI_ARGS_ ( (char *file, int line) ) ; 
DbNewStringObj _ANSI_ARGS_ ( (char *bytes, 
int length, char *file, int line) ) ; 
DeleteAssocData _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *name) ) ; 
DeleteCommand _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *cmdName) ) ; 

DeleteCommandFromToken _ANSI_ARGS__ ( ( 
Tcl_Interp *interp, Tcl_Command command)); 
_DeleteChannelHandler _ANSI_ARGS_( ( 
Tcl_Channel chan, Tcl_ChannelProc *proc, 

ClientData clientData) ) ; 
DeleteCloseHandler _ANSI_ARGS_( ( 
Tcl_Channel chan, Tcl_CloseProc *proc, 

ClientData clientData)); 
DeleteEvents _ANSI_ARGS_ ( ( 
Tcl_EventDeleteProc *proc, 

ClientData clientData) ) ; 
DeleteEventSource _ANSI_ARGS_ ( ( 
Tcl_EventSetupProc *setupProc, 
Tcl_EventCheckProc *checkProc, 
ClientData clientData) ) ; 

DeleteExitHandler _ANSI_ARGS_ ( (Tcl_ExitProc *proc, 
ClientData clientData) ) ; 
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EXTERN void 

EXTERN void 

EXTERN void 
EXTERN void 

EXTERN void 

EXTERN void 
EXTERN void 



EXTERN 
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_DeleteFileHandler _ANSI_ARGS_ ( (int* f d) ) ; 
_DeleteHashEntry _ANSI_ARGS_ ( ( 
Tcl_HashEntry *entryPtr) ) ; 
JDeleteHashTable _ANSI_ARGS_ ( ( 
Tcl_HashTable *tablePtr) ) / 

_DeleteInterp _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 
_DeleteTimerHandler _ANSI_ARGS_ ( ( 
TclJTimerToken token) ) ; 

_DeleteTrace __ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Trace trace) ) ; 

JDetachPids _ANSI_ARGS_ ( (int numPids, Tcl_Pid *pidPtr) ) ; 
_DontCallWhenDeleted _ANSI_ARGS_ ( { 
Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, 
ClientData clientData) ) ; 
_DoOneEvent _ANSI_ARGS_{ (int flags) ) / 
_DoWhenIdle _ANSI_ARGS_ ( (Tcl_IdleProc *proc, 
ClientData clientData) ) / 

Tcl_DStringAppend _ANSI_ARGS_ ( (Tcl_DString *dsPtr, 
CONST char *string, int length)); 

Tcl_DStringAppendElement _ANSI_ARGS_( ( 
TclJDString *dsPtr / CONST char *string) ) ; 
_DStringEndSublist _ANSI_ARGS_ ( (Tcl_DString *dsPtr) ) ; 
DStringFree _ANSI_ARGS_ ( (TclJDString *dsPtr) ) ; 
_DStringGetResult _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_DString *dsPtr) ) ; 

_DStringInit _ANSI_ARGS_ ( (Tcl_DString *dsPtr) ) ; 
JDStringResult _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_DString *dsPtr) ) ; 

DStringSetLength _ANSI_ARGS_ ( (TclJDString *dsPtr, 
int length) ) ; 

_DStringStartSublist _ANSI_ARGS_ ( ( 
TclJDString *dsPtr) ) ; 

_DuplicateObj _ANSI_ARGS_ ( (Tcl_Obj *objPtr)); 
_Eof _ANSI_ARGS_( (Tcl_Channel chan) ) ; 

Tcl_ErrnoId _ANSI_ARGS_( (void) ) ; 

Tcl_ErrnoMsg _ANSI_ARGS_( (int err) ) ; 
_Eval _ANSI_ARGS_( (Tcl_Interp *interp, 
char *string) ) ; 

EvalFile _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *f ileName) ) ; 

Eventual lyFree _ANSI_ARGS_ ( (ClientData clientData, 

Tcl_FreeProc *freeProc) ) ; 

EvalObj _ANSI_ARGS_( (Tcl_Interp *interp, 

Tcl_Obj *objPtr) ) ; 

Exit _ANSI_ARGS_( (int status) ) ; 

ExposeCommand _ANSI_ARGS_( (Tcl_Interp *interp, 

char *hiddenCmdToken, char *cmdName) ) ; 

ExprBoolean __ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *string, int *ptr) ) ; 

ExprBooleanObj JVNSI JVRGS_ ( (Tcl_Interp *interp, 
TcljDbj *objPtr, int *ptr) ) ; 
ExprDouble _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string, double *ptr) ) ; 

ExprDoubleObj _ANSI_ARGS_( (Tcl_Interp *interp, 
Tcl_Obj *objPtr, double *ptr) ) ; 
ExprLong _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string, long *ptr) ) ; 



EXTERN 


int 


EXTERN 


int 


EXTERN 


int 


EXTERN 


void 


EXTERN 


void 


EXTERN 


TclJ 


EXTERN 


int 


EXTERN 


void 


EXTERN 


void 


EXTERN 


int 


EXTERN 


int 



Tcl_ExprLongObj _ANSI_ARGS_ ( (Tcl_Interp *interp, 

Tcl_Obj *objPtr, long *ptr) ) ; 
Tcl_ExprObj _ANSI_ARGS_ ( (Tcl_Interp *interp, 

Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr) ) ; 
Tcl_ExprString _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *string) ) ; 
Tcl_Finalize _ANSI_ARGS_ ( (void) ) ; 
Tcl_FindExecutable _ANSI_ARGS_( (char *argvO) ) ; 
hEntry * Tcl_FirstHashEntry _ANSI_ARGS_ ( ( 
Tcl_HashTable *tablePtr, 
Tcl_HashSearch *searchPtr) ) ; 
Tcl_Flush _ANSI_ARGS_( (Tcl_Channel chan) ) ; 
TclFreeObj _ANSI_ARGS_ ( (Tcl_Obj *objPtr) ) ; 
Tcl_FreeResult _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 
Tcl_GetAlias _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *slaveCmd, Tcl_Interp **targetInterpPtr , 
char **targetCmdPtr, int *argcPtr, 
char ***argvPtr) ) ; 
Tcl_GetAliasObj _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *slaveCmd, Tcl_Interp **targetInterpPtr , 
char **targetCmdPtr, int *objcPtr, 
Tcl_Obj ***objv) ) ; 
EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *name, Tcl_InterpDeleteProc **procPtr) ) ; 
EXTERN int Tcl_GetBoolean _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *string, int *boolPtr) ) ; 
EXTERN int Tcl_GetBooleanFromOb j _ANS I_ARGS_ ( ( 

Tcl_Interp *interp, Tcl_Obj *objPtr, 
int *boolPtr) ) ; 

EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *chanName, int *modePtr) ) ; 
EXTERN int Tcl_GetChannelBuf f erSize _ANSI_ARGS_ ( ( 

Tcl_Channel chan) ) ; 
EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_ { (Tcl_Channel chan, 

int direction, ClientData *handlePtr) ) ; 
EXTERN ClientData Tcl_GetChannelInstanceData _ANS I_ARGS_ ( ( 

Tcl_Channel chan) ) ; 
EXTERN int TclJ3etChannelMode _ANSI_ARGS_ ( (Tcl_Channel chan)); 

EXTERN char * Tcl_GetChannelName _ANSI_ARGS_ ( (Tcl_Channel chan)); 

EXTERN int Tcl_GetChannelOption _ANSI_ARGS_ { <Tcl_Interp *interp, 

Tcl_Channel chan, char *optionName , 

Tcl_DString *dsPtr) ) ; 
EXTERN Tcl_ChannelType * Tcl_Get Channel Type _ANSI_ARGS_ ( (Tcl_Channel chan)); 
EXTERN int Tcl_Get Command In f o _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *cmdName, Tcl_CmdInfo *infoPtr) ) ; 
EXTERN char * Tcl_GetCommandName _ANSI_ARGS_ ( (Tcl_Interp *interp, 

Telecommand command) ) ; 
EXTERN int Tcl_GetDouble _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *string, double *doublePtr) ) ; 
EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_ ( ( 

Tcl_Interp *interp, TclJDbj *objPtr, 

double *doublePtr) ) ; 
EXTERN int Tcl_GetErrno _ANSI_ARGS_ ( (void) ) ; 

EXTERN char * Tcl_GetHostName _ANSI_ARGS_ ( (void) ) ; 

EXTERN int Tcl_Get IndexFromObj _ANSI_ARGS_ ( (Tcl_Interp *interp, 

TcljDbj *objPtr, char **tablePtr, char *msg, 

int flags, int *indexPtr) ) ; 



EXTERN int Tcl_ 

EXTERN int Tcl_ 

EXTERN int Tcl_ 

EXTERN int Tcl_ 

EXTERN Tcl_Interp * 

EXTERN CONST char * 

EXTERN Tcl_Obj * Tcl_ 
EXTERN Tcl_ObjType * 

EXTERN int Tel 



EXTERN 


Tcl_PathType 


EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


Tcl_Interp 


* 


EXTERN 


Tcl_Channel 


EXTERN 


char * 




EXTERN 


char * 




EXTERN 


char * 




EXTERN 


char * 




EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


char * 




EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


void 


Tel 


EXTERN 


void 


Tel 


EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


void 


Tel 


EXTERN 


char * 




EXTERN 


int 


Tel 


EXTERN 


int 


Tel 


EXTERN 


int 


Tel 



Getlnt _ANSI_ARGS_( (Tcl_Interp *interp, 
char *string, int *intPtr) ) ; 

GetlnterpPath _ANSI_ARGS_ { (Tcl_Interp *asklnterp, 
Tcl_Interp *slavelnterp) ) ; 

GetlntFromObj _ANSI_ARGS__ ( (Tcl_Interp *interp, 
Tcl_Obj *objPtr, int *intPtr) ) ; 
GetLongFromObj _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *objPtr, long *longPtr) ) ; 

Tcl_GetMaster _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 

Tcl_GetNameOf Executable _ANSI_ARGS_( (void) ) ; 
GetObjResult _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 

Tcl_GetObjType _ANSI_ARGS_( (char *typeName) ) ; 
GetOpenFile _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string, int write, int checkUsage, 
ClientData *f ilePtr) ) ; 

Tcl_GetPathType _ANSI_ARGS_( (char *path) ) ; 
Gets _ANSI_ARGS_( (Tcl_Channel chan, 
Tcl_DString *dsPtr) ) ; 

GetsObj _ANSI_ARGS_( (Tcl_Channel chan, 
Tcl_Obj *objPtr) ) ; 

GetServiceMode _ANSI_ARGS_( (void) ) ; 

Tcl_GetSlave _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *slaveName) ) ; 

Tcl_GetStdChannel _ANSI_ARGS_( (int type)); 

Tcl_GetStringFromObj _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
int *lengthPtr) ) ; 

Tcl_GetStringResult _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 

Tcl_GetVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *varName, int flags) ) ; 

• Tcl_GetVar2 _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *partl, char *part2, int flags)); 
GlobalEval _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char * command) ) ; 

GlobalEvalObj _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *objPtr) ) ; 

Tcl_HashStats _ANSI_ARGS_ ( (Tcl_HashTable *tablePtr) ) ; 
HideCommand _ANSI_ARGS_( (Tcl_Interp *interp, 

char *cmdName, char *hiddenCmdToken) ) ; 
Init _ANSI_ARGS_( (Tcl_Interp *interp) ) ; 
JnitHashTable _ANSI_ARGS_ ( (Tcl_HashTable *tablePtr, 
int keyType) ) ; 

InitMemory _ANSI_ARGS_( (Tcl_Interp *interp) ) ; 
InputBlocked _ANSI_ARGS_ ( (Tcl_Channel chan) ) ; 
JnputBuf fered _ANSI_ARGS_( (Tcl_Channel chan) ) ; 
JnterpDeleted _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 
"isSafe _ANSI_ARGS_( (Tcl_Interp *interp) ) ; 
InvalidateStringRep _ANSI_ARGS_ ( ( 
Tcl_Obj *objPtr) ) ; 

Tcl_JoinPath _ANSI_ARGS_ ( (int argc, char **argv, 
Tcl_DString *resultPtr) ) ; 
LinkVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *varName, char *addr, int type) ) ; 
ListObjAppendList _ANSI_ARGS_ ( ( 
Tcl_Interp *interp, Tcl_Obj *listPtr, 
TclJDbj *elemListPtr) ) ; 
ListObjAppendElement _ANS I_ARGS_ ( < 
Tcl_Interp *interp, Tcl_Obj *listPtr, 



EXTERN int 



EXTERN int 



EXTERN 
EXTERN 

EXTERN 

EXTERN 

EXTERN 
EXTERN 

EXTERN 
EXTERN 

EXTERN 

EXTERN 



int 
int 



void Tel 

Tcl_Channel 

int Tel 
Tcl_Channel 

char * 

Tcl_HashEntry 
void Tel 
Tcl_Obj * Tel 



EXTERN Tcl_Obj * Tel 



EXTERN Tel Channel 



EXTERN Tel Channel 



EXTERN Tel Channel 



EXTERN Tel Channel 



EXTERN 


char * 


EXTERN 


int 


EXTERN 


char * 


EXTERN 


char * 


EXTERN 


void 


EXTERN 


void 


EXTERN 


int 


EXTERN 


void 


EXTERN 


int 



Tcl_Obj *objPtr)); 
Tcl_ListObjGetElements _ANSI_ARGS_( ( 

Tcl_Interp *interp, Tcl_Obj *listPtr, 
int *objcPtr, Tcl_Obj ***objvPtr) ) ; 
Tcl_ListObj Index _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *listPtr, int index, 
Tcl_Obj **objPtrPtr) ) ; 
Tcl_ListObjLength _ANSI_ARGS_ ( (Tcl_Interp *interp, 

Tcl_Obj *listPtr, int *intPtr) ) ; 
Tcl_ListObjReplace _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *listPtr, int first, int count, 
int objc, TcljDbj *CONST obj v [] ) ) ; 
_Main _ANSI_ARGS_( (int argc, char **argv, 
Tcl_AppInitProc *appInitProc) ) ; 

Tcl_MakeFileChannel _ANSI_ARGS_ ( (ClientData handle, 
int mode) ) ; 

_MakeSafe _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 
Tcl_MakeTcpClientChannel _ANSI_ARGS_( ( 
ClientData tcpSocket) ) ; 

Tcl_Merge _ANSI_ARGS_ ( (int argc, char **argv) ) ; 
Tcl_NextHashEntry _ANSI_ARGS_ ( ( 
Tcl_HashSearch *searchPtr) ) ; 
_NotifyChannel _ANSI_ARGS_ ( (Tcl_Channel channel, 
int mask) ) ; 

_0bjGetVar2 _ANSI_ARGS_ ( (Tcl__Interp *interp, 
Tcl_Obj *partlPtr, Tcl_Obj *part2Ptr, 
int flags) ) ; 
_0bjSetVar2 _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *partlPtr, Tcl_Obj *part2Ptr, 
Tcl_Obj *newValuePtr, int flags)); 

Tcl_OpenCommandChannel _ANSI_ARGS_{ ( 
Tcl_Interp *interp, int argc, char **argv, 
int flags) ) ; 

Tcl_OpenFileChannel _ANSI_ARGS_( (Tcl_Interp *interp, 
char *fileName, char *modeString, 
int permissions) ) ; 
Tcl_OpenTcpClient _ANSI_ARGS_ ( (Tcl_Interp *interp, 
int port, char *address, char *myaddr, 
int myport, int async) ) ; 

Tcl_OpenTcpServer _ANSI_ARGS_ ( (Tcl_Interp *interp, 
int port, char *host, 
Tcl_TcpAccept Proc *acceptProc , 
ClientData callbackData) ) ; 

Tcl_ParseVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string, char **termPtr) ) ; 
Tcl_PkgProvide _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *name, char *version) ) ; 

Tcl_PkgRequire _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *name, char *version, int exact)); 

Tcl_PosixError _ANSI__ARGS_ { (Tcl_Interp *interp) ) ; 
Tcl_Preserve _ANSI_ARGS_( (ClientData data) ) ; 
Tcl_PrintDouble _ANSI_ARGS_ ( (Tcl_Interp *interp, 

double value, char *dst)); 
Tcl_PutEny _ANSI_ARGS_( (CONST char *string) ) ; 
Tcl_QueueEvent _ANSI_ARGS_ ( (Tcl_Event *evPtr, 

Tcl_QueuePosition position) ) ; 
Tel Read ANSI ARGS ((Tel Channel chan, 



char *bufPtr, int toRead) ) ; 



EXTERN 


void 


Tcl_ 


_ReapDetachedProcs _ANSI_ARGS_( (void) ) ; 


EXTERN 


int 


Tcl~ 


RecordAndEval _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *cmd, int flags)); 


EXTERN 


int 


Tcl_ 


_RecordAndEvalObj _ANSI_ARGS_( (Tcl_Interp *interp, 
TclJDbj *cmdPtr, int flags)); . 


EXTERN 


Tcl_RegExp 


Tcl_ 


_RegExpCompile _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string) ) ; 


EXTERN 


int 


Tcl_ 


RegExpExec _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_RegExp regexp, char *string, char *start) ) ; 


EXTERN 


int 


Tcl_ 


_RegExpMatch _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string, char *pattern) ) ; 


EXTERN 


void 


Tcl_ 


_RegExpRange _ANSI_ARGS_ ( (TclJRegExp regexp, 
int index, char **startPtr, char **endPtr) ) ; 


EXTERN 


void 


Tcl_ 


_RegisterChannel _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Channel chan) ) ; 


EXTERN 


void 


Tcl_ 


_RegisterObjType _ANS I_ARGS_ ( ( 
Tcl_ObjType *typePtr) ) ; 


EXTERN 


void 


Tcl_ 


_Release _ANSI_ARGS_ (( Client Data clientData)); 


EXTERN 


void 


Tel" 


~ResetResult _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 


#define Tel Return Tel SetResult 


EXTERN 


int 


Tcl_ 


_ScanCountedElement _ANSI_ARGS_ ( (CONST char *string 
int length, int *f lagPtr) ) ; 


EXTERN 


int 


Tcl_ 


_ScanElement _ANSI_ARGS_ ( (CONST char *string, 
"int *f lagPtr) ) ; 


EXTERN 


int 


Tcl_ 


_Seek _ANSI_ARGS_( (Tcl_Channel chan, 
int offset, int mode)); 


EXTERN 


int 


Tcl_ 


_ServiceAll _ANSI_ARGS_( (void) ) ; 


EXTERN 


int 


Tcl_ 


_ServiceEvent _ANSI_ARGS_ ( (int flags)); 


EXTERN 


void 


Tel" 


_SetAssocData _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *name, Tcl_InterpDeleteProc *proc, 
ClientData clientData) ) ; 


EXTERN 


void 


Tcl_ 


_SetBooleanObj _ANSI_ARGS_ ( (TclJDbj *objPtr, 
int bool Value) ) ; 


EXTERN 


void 


Tcl_ 


_SetChannelBufferSize _ANSI_ARGS_( ( 
Tcl_Channel chan, int sz) ) ; 


EXTERN 


int 


Tcl_ 


_SetChannelOption _ANSI_ARGS_ ( ( 
Tcl_Interp *interp, Tcl_Channel chan, 
char *optionName, char *newValue) ) ; 


EXTERN 


int 


Tcl_ 


_SetCommandInfo _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *cmdName, Tcl_CmdInfo *infoPtr) ) ; 


EXTERN 


void 


Tcl_ 


_SetDoubleObj _ANSI_ARGS_ ( (TclJDbj *objPtr, 
double doubleValue) ) ; 


EXTERN 


void 


Tcl_ 


_SetErrno _ANSI_ARGS_ ( (int err) ) ; 


EXTERN 


void 


Tel" 


"setErrorCode _ANSI_ARGS_( 
~TCL_VARARGS (Tcl_Interp *, argl) ) ; 


EXTERN 


void 


Tcl_ 


_SetIntObj _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
int intValue) ) ; 


EXTERN 


void 


Tcl_ 


_SetListObj _ANSI_ARGS_( (Tcl_Obj *objPtr, 
"int objc, TclJDbj *CONST objv[])); 


EXTERN 


void 


Tcl_ 


_SetLongObj _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
long longValue) ) ; 


EXTERN 


void 


Tcl_ 


_SetMaxBlockTime __ANSI_ARGS_ ( (TclJTime *timePtr) ) ; 


EXTERN 


void 


Tel] 


_SetObjErrorCode _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_Obj *errorObjPtr) ) ; 


EXTERN 


void 


Tcl_ 


_SetObj Length _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 



int length) ) ; 



EXTERN 


void 


Tel 


_SetObjResult _ANSI_ARGS_ ( (Tcl_Interp *interp, 
Tcl_ Obj *resultObj Ptr) ) ; 


hA lbKJM 


void 


Tel 


_SetPanicProc __ANSI_ARGS_ ( (void (*proc) 
_ANSI_ARGS_ { TCL_VARARGS (char * , format) ) ) ) ; 


bA 1 fcKJM 




xCl 


_SetRecursionLimit _ANSI_ARGS_ ( (Tcl_Interp *interp, 
int depth) ) ; 


bA 1 bKN 


void 


TCI 


_SetResult _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *string, Tcl_FreeProc *freeProc) ) / 


EXTERN 


int 


Tcl_ 


_SetServiceMode _ANSI_ARGS_ ( (int mode)); 


bAlhKM 


void 


Tcl_ 


_SetStdChannel _ANSI_ARGS_ ( (Tcl_Channel channel, 
int type) ) ; 


EXTERN 


void 


Tcl_ 


_SetStringObj _ANSI_ARGS_ ( (Tcl_Obj *objPtr, 
cnar *oytes, mt length); ; 


bA lbKN 


void 


Tcl_ 


_SetTimer _ANSI_ARGS_( (Tcl_Time *timePtr) ) ; 


bA ibKJM 


char * 




Tcl_SetVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *varName, char *newValue, int flags) ) ; 
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chair * 




Tcl_Setvar2 __ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *partl, char *part2, char *newValue, 
int tlags) ) ; 


EXTERN 


char * 




Tcl_SignalId _ANSI_ARGS_ ( ( int sig) ) ; 


bA 1 bKJN 


char * 




Tc±_SignalMsg _ANSI_ARGS_( (mt sig) ) ; 


EXTERN 


void 


Tcl_ 


JSleep _ANSI_ARGS_( (int ms) ) ; 


EXTERN 


void 


Tel] 


_SourceRCFile _ANSI_ARGS_( (Tcl_Interp *interp) ) ; 


bA i bKN 


int 


rp _ 1 
X Cl_ 


JSplitList _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *list, int *argcPtr, char ***argvPtr) ) ; 


bA lbKN 


void 


TCl_ 


_SplitPath _ANSI_ARGS_ ( (char *path, 

t n t~ *a>*rfrDh v pVi a r tV tV * a vm^Df \ \ • 
j-iiL, ai^L,r LI , wllciX diy Vrt-I / ; / 


EXTERN 


void 


Tcl_ 


_StaticPackage _ANSI_ARGS_ ( (Tcl_Interp *interp, 
char *pkgName, Tcl_PackageInitProc *initProc, 
Tcl_PackageInitProc *saf elnitProc) ) ; 


EXTERN 


int 


Tcl_ 


_StringMatch _ANSI__ARGS_( (char *string, 
char *pattern) ) ; 


EXTERN 


int 


Tcl_ 


_Tell _ANSI_ARGS_( (Tcl_Channel chan) ) ; 



#define Tcl_TildeSubst Tcl_TranslateFileName 
EXTERN int Tcl_TraceVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *varName, int flags, Tcl_VarTraceProc *proc, 
ClientData clientData) ) ; 
EXTERN int Tcl_TraceVar2 _ANSI_ARGS_ { (Tcl_Interp *interp, 

char *partl, char *part2 , int flags, 
Tcl_VarTraceProc *proc, ClientData clientData)); 
EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char ♦name, Tcl_DString *buf ferPtr) ) ; 
EXTERN int TclJJngets _ANS I_ARGS_ ( ( Tc l_Channe 1 chan, char *str, 

int len, int atHead) ) ; 
EXTERN void Tcl_UnlinkVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *varName) ) / 

EXTERN int Tcl_UnregisterChannel __ANSI_ARGS_ ( (Tcl_Interp *interp, 

Tcl — Channel chan) ) ; 
EXTERN int Tcl_UnsetVar _ANSI_ARGS_( (Tcl_Interp *interp, 

char *varName, int flags)); 
EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *partl, char *part2, int flags)); 
EXTERN void Tcl_UntraceVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *varName, int flags, Tcl_VarTraceProc *proc, 

ClientData clientData) ) ; 
EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *partl, char *part2 , int flags, 



EXTERN void 
EXTERN int 

EXTERN int 

EXTERN int 
EXTERN ClientData 

EXTERN ClientData 



EXTERN int 
EXTERN Tcl_Pid 

EXTERN int 

EXTERN void 



Tcl_VarTraceProc *proc, ClientData ClientData)); 
Tcl_UpdateLinkedVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *varName) ) ; 
Tcl_UpVar _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *f rameName, char *varName, 

char *localName, int flags)); 
Tcl_UpVar2 _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *f rameName, char *partl, char *part2 , 

char *localName, int flags)); 
Tcl_VarEval _ANSI_ARGS_( 

TCL_VARARGS (Tcl_Inte'rp * , interp) ) ; 
TclJVarTracelnfo _ANSI_ARGS_ ( (Tcl_Interp *interp, 

char *varName, int flags, 

Tcl_VarTraceProc *procPtr , 

ClientData prevClientData) ) ; 
Tcl_VarTraceInfo2 _ANSI_ARGS__ ( (Tcl_Interp *interp, 

char *partl, char *part2, int flags, 

Tcl_VarTraceProc *procPt r , 

ClientData prevClientData) ) ; 
Tcl_WaitForEvent _ANSI_ARGS_ ( (Tcl_Time *timePtr) ) ; 

Tcl_WaitPid _ANSI_ARGS_ ( (Tcl_Pid pid, int *statPtr, 

int options) ) ; 
Tcl_Write _ANSI_ARGS_ ( (Tcl_Channel chan, 

char *s, int slen) ) ; 
Tcl_WrongNumArgs _ANSI_ARGS_ ( (Tcl_Interp *interp, 

int objc, TcljDbj *CONST objv[], char *message) ) ; 



#undef TCL_STORAGE_CLASS 
#define TCL STORAGE CLASS 



Convenience declaration of Tcl_AppInit for backwards compatibility. 
This function is not * implemented* by the tcl library, so the storage 
class is neither DLLEXPORT nor DLLIMPORT 
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EXTERN int Tcl_AppInit _ANSI_ARGS_ ( (Tcl_Interp *interp) ) ; 

#endif /* RESOURCE_INCLUDED */ 

#undef TCL_STORAGE_CLASS 

#def.ine TCL_STORAGE_CLASS DLLIMPORT 

#endif /* TCL */ 



/* 

* tkWin.h -- 
★ 

* Declarations of public types and interfaces that are only 

* available under Windows. 
* 

* Copyright (c) 1996 by Sun Microsystems, Inc. 
* 

* See the file "license . terms" for information on usage and redistribut 

* of this file, and for a DISCLAIMER OF ALL WARRANTIES. 

* RCS: @{#) $Id: tkWin.h,v 1.4 1998/09/14 18:23:59 Stanton Exp $ 
*/ 

#ifndef _TKWIN 
#define _TKWIN 

#ifndef _TK 
#include <tk.h> 
#endif 

#define WIN32 _LEAN_AND_ME AN 
#include <windows . h> 
#undef WIN32_LEAN_AND_MEAN 

#ifdef BUILD_tk 

# undef TCL_STORAGE_CLASS 

# define T C L_S TO RAG E_C LAS S DLLEXPORT 
#endif 

/* 

* The following messages are use to communicate between a Tk toplevel 

* and its container window. 
*/ 

tfdefine TKJTLAIMFOCUS <WM_USER) 
#define TK_GEOMETRYREQ (WM_USER+1) 
#define TK_ATTACHW INDOW (WM_USER+2) 
#define TK_DETACHW INDOW (WM_USER+3) 



/* 

★ 

* 

* Exported procedures defined for the Windows platform only. 
* 

* 

*/ 

EXTERN Window 

EXTERN HINSTANCE 
EXTERN HWND 
EXTERN Tk_Window 
EXTERN void 

EXTERN int 



# undef TCL_STORAGE_CLASS 

# define TCL_STORAGE CLASS DLLIMPORT 

#endif /* TKWIN */ 



Tk_AttachHWND _ANSI_ARGS_( (Tk_Window tkwin 
HWND hwnd) ) ; 
Tk_Get HINSTANCE _ANSI_ARGS_ < (void) ) ; 
Tk_GetHWND _ANSI_ARGS_( (Window window) ) ; 
Tk_HWNDToWindow _ANSI_ARGS_( (HWND hwnd) ) / 
Tk_PointerEvent _ANSI_ARGS_( (HWND hwnd, 

int x, int y) ) ; 
TkJTranslateWinEvent _ANSI_ARGS_ ( (HWND hwnd, 

UINT message, WPARAM wParam, LP ARAM lParam, 
LRESULT *result) ) ; 



Mode: C; tab-width: 4; -*- */ 



/* ■ 

* Copyright (c) 1996 Netscape Communications. All rights reserved. 

* Copyright (c) 1997 Lawrence T. Hoff (hoff@bnl.gov). All rights reserved-. 



* UnixShell.c 



Netscape Client Plugin API 

- Function that need to be implemented by plugin developers 

This file defines a "Template" plugin that plugin developers can use 
as the basis for a real plugin. This shell just provides empty 
implementations of all functions that the plugin can implement 
that will be called by Netscape (the NPP_xxx methods defined in 
npapi .h) . 

/ 



#inc 

*/ 

#inc 
#inc 
etc . 
#inc 
#inc 
#inc 
#inc 
#inc 
#inc 
desc 



lude <stdio.h> 

lude <sys/types . h> 
lude <unistd.h> 



*/ 

lude <signal.h> 

lude <fcntl.h> 

lude <sys/wait.h> 

lude "npapi.h" 

lude <sys/time.h> 

lude <sys/resource . h> 
riptors */ 



/* sprintfO, fprintfO, etc. 

/* pid_t */ 

/* forkO, systemO, unlinkO, 

/* SIGHUP */ 

/* 0_RDWR */ 

/* wait () */ 

/* struct timeval */ 

/* maximum # of file 



/* 

** Stuff for the NPP_SetWindow method: 
*/ 

#ifdef XP_UNIX 

#include <X11/Xlib.h> 

#include <X11/ Intrinsic . h> 

#include <Xll/StringDef s .h> 

#include " Initiall . h" 

#include <Xm/Form.h> 

#include <Xm/Label.h> 

#include <Xm/PushB.h> 

#include "xpm.h" /* xpm library functions */ 

#include "ump.xpm" /* UMP in XPM format */ 



/* Xlib */ 

/* Xt */ 

/* "callback" */ 

/* Motif layout Widget */ 

/* Motif Picture Widget */ 

/* Motif Button Widget */ 



/* buttons in XPM format */ 



#include 
#include 
#include 
#include 
#include 
#include 



"stopup .xpm" 

"stopdn.xpm" 

"playup.xpm" 

"playdn.xpm" 

"pauseup . xpm" 

"pausedn.xpm" 



extern PerDisplayTablePtr _XtperDisplayList ; 



#endif /* XP_UNIX */ 



/* default library, compatible with TIMIDITY */ 
static const char *timdir = "/usr/local/lib/timidity" ; 

/* resort to slow sampling rate for busy/slow processors */ 
static int eightKFlag = 0; 

/*******************************^^ 

* * 

* * 

* Stop playing music, kill the subordinate task * 

* * 

* * 

* * 

* * 



static void stopMidiPlayer (pid_t pid) { 
if(pid != (pid_t) -1) { 
kill (pid, SIGHUP) ; 

while (waitpid (pid, 0, WNOHANG ) > 0 ) ; /* clean up after dead child */ 

} 

} 



* 

Function to actually play the music * 



****************************************************** 

static pid_t startMidiPlayer (const char *filename, int *pipes, int loop, int 
start) { 

void timiditySetPipe (int p) ; 
pid_t pid; 



/* set up IPC */ 
(void)pipe (pipes) ; 

printf("HlT startMidiPlayer: %s %xx %d %d \n", filename, *pipes, loop, start); 
f flush (stdbut) ; 

/* if we're the parent, return the child ID */ 

pid = fork(); if (pid != (pid_t)0) return pid; 

/* OK, now let's get ourselves somewhat removed from our parent */ 

{ 

int fd, sig; 
struct rlimit rip; 

/* start by closing all file descriptors (except stderr, and our pipe) */ 



(void), getrlimit (RLIMIT_NOFILE, trip) ; 

for(fd = 3; fd < rip . rlirnjnax; fd++) if (fd != pipes [0] ) (void) close (fd); 



/* now attach stdin and sdtout to /dev/null */ 
(void) f reopen ( " /dev/null" , "r", stdin); 
(void) f reopen ( "/dev/null" , "w", stdout) ; 

/* then remove an netscape-installed signal handlers */ 
for(sig=0; sig < 64; sig++) signal (sig, SIG DFL) ; 

} 

/* Now play the sound file */ 

{ 

static const char *argv[4]; 
argv[0] = "timidity"; 
argv[l] = "-Od"; 

argv[2] = eightKFlag ? "-s8000": "-S22050"; /* check if the user specified 
8K rate */ 

argv[3] = filename; 

/* change to the configuration directory */ 
chdir (timdir) ; 

/* tell timidity where to read GUI input */ 
timiditySetPipe (pipes [0] ) ; 

/* loop forever, until unloaded, wait for play to be enabled */ 
do { 

signed char c; 

/* wait for a new play command before starting */ 

if (! start) while (read (pipes [0] , &c, 1) ■ = = 1 && c != ' '); 

/* fprintf (stderr, "GOT START: %d\n", start); f flush (stderr) ; */ 
start = -0; /* we've started now! */ 

/* fprintf (stderr, "CALL: %s %s %s %s\n", argv[0], argv[l], argv[2], argv[3]); 
f flush (stderr) ; */ 

/* jump to timidity */ 

{ 

int status; 

int timiditymain () ; 
/* fprintf (stderr, "timiditymain: %xx ME: %d \n M , timiditymain, getpidO); 
f flush (stderr) ; */ 

status = timiditymain (4 , argv) ; 
/* fprintf (stderr , "back from main %d \n'\ status); f flush (stderr) ; */ 

} 

if ( Hoop) { 

/* wait for a new stop command before starting again */ 
while (read (pipes [0] , &c, 1) == 1 && c != * '); 

/* wait for a new play command before starting again */ 

while (read (pipes [0] , &c, 1) == 1 c != ' '); 

} 



} while (-0); /* loop forever */ 

} 

/* bye now */ 
_exit (0) ; 

} 

* Instance state information about the plugin. 
* 

* PLUGIN DEVELOPERS: 

* Use this struct to hold per-instance information that you'll 

* need in the various functions in this file. 

/* we'll read in all the file before processing. Typical MIDI files are 
smallish, 

so it should be OK */ 
static const char *filestub = "/tmp/midi " ; 

typedef enum { PLUGIN_PLAYING, PLUGIN_STOPPED, PLUGIN__PAUSED } pluginPlayState; 
typedef struct _PluginInstance 

{ 

int fd; /* file descriptor for temp file */ 
const char *filename; /* name of same */ 

pid_t pid; /* process ID of sound player (FIXME -- should be global???) */ 

int pipes [2]; /* inter-process communication */ 

pluginPlayState pluginState; /* stopped, paused, or playing */ 

int loop; /* 0 means play only once, non-zero means loop forever */ 

/* UNIX data members */ 
#ifdef xp_unix 

Widget play, pause, stop; /* button widgets, and their pictures, as well as 
the logo picture */ 

Pixmap logoPixmap, playupPixmap , playdnPixmap, pauseupPixmap, pausednPixmap, 
stopupPixmap, stopdnPixmap ; 

Display *display; /* needed for XFreePixmap ( ) */ 

int width, height; /* how big is the UMP logo? */ 
#endif /* XPJJNIX */ 

FILE *tst; 
} Pluginlnstance ; 



I* 



* 

* Empty implementations of plugin API functions 
★ 

* PLUGIN DEVELOPERS: 

* You will need to implement these functions as required by your 

* plugin. 



/ 



char* 

NPP_GetMIMEDescription (void) 

{ 

static char *desc = 

"audio/midi :mid,midi, foo: <A HREF=mailto :hof f @bnl .gov>Larry Hof f ' s</A> 
"UMP plugin version 1.10;" 

"audio/x-midi :mid, midi , bar : <A HREF=mailto :hof f@bnl .gov>Larry Hof f *s</A 
"UMP plugin version 1.10;"; 

return (desc) ; 

} 

NPError 

NPP_GetValue (void *future, NPPVariable variable, void *value) 
{ 

NPError err = NPERR_NO_ERROR ; 

static char *desc = 

"This plugins plays MIDI, using the timidity " 
"toolkit, via the standard audio device. <P>" 

"By default, timidity configuration files are in the directory " 
"/usr/ local/lib/ timidity<P>" 

"Use the TIMID_DIR environment variable to change " 
"the configuration directory . <P> " 

"You may set the environment variable TIMID_8K to " 
"reduce the sampling rate (to 8000 Hz) for busy or slow " 
"processors, or for machines which only support 8KHz.<P>"; 

switch (variable) { 

case NPPVpluginNameString : 

Mfchar **) value) = "UNIX MIDI plugin"; 

break; 

case NPPVpluginDescriptionString: 

*((char **) value) = desc; 

break; 
default : 

err = NPERR_GENERIC_ERROR; 

} 

return err; 

} 

NPError 

NPP_Initialize (void) 

{ 

/* see if the user has specified an alternate- directory for timidity */ 
if (getenv ("TIMID_DIR") != NULL) timdir = getenv ( "TIMID_DIR" ) ; 

/* see if the user has specified an alternate directory for timidity */ 
if (getenv ("TIMID_8K") != NULL) eightKFlag = 1; 

return NPERR NO ERROR; 



} 



NPError 

NPP__New (NPMIMEType pluginType, 
NPP instance, 

uintl6 mode, /* either NP_EMBED or NP_FULL, we don't care * 
intl6 argc, /* number of name/value pairs */ 
char* argn [] , 
char* argv [] , 
NPSavedData* saved) 

{ 

Pluginlnstance* This ; 



if (instance == NULL) 

return NPERR_INVALID_INSTANCE_ERROR; 

instance ->pdata = NPN_MemAlloc (sizeof (Pluginlnstance) ) ; 

This = (Pluginlnstance*) instance- >pdata; 

if (This == NULL) 

return NPERR_OUT_OF_MEMORY_ERROR ; 

fprintf (stderr, "11 INSTANCE: %xx\n", instance); f flush (stderr ) ; 
{ 

/* construct a filename unique to this instance to 

store the data in */ 
static char buf [256] ; 

sprintf(buf, "%s%x.mid", filestub, This); 
This- >f ilename = buf; 
This->pid = -1; 
This->pipes [1] = -1; 
This->pipes [0] = -1; 
This->logoPixmap = -1; 
This->playupPixmap = -1; 
This- >playdnPixmap = -1; 
This->pauseupPixmap = -1; 
This->pausednPixmap = -1; 
This->stopupPixmap = -1; 
This->stopdnPixmap = -1; 
This->pluginState = PLUGIN_PLAYING; 
This->loop = 0; 

This->tst = fopenC'/tmp/log", »w") ; 
fprintf (This->tst, "New\n"); 
f f lush(This->tst) ; 



} 

/* fprintf (stderr, " 22 INSTANCE : %xx\n" , instance); f flush ( stderr ) 
{ 

/* handle user-overrides */ 



int i; 



for(i =0; i < argc; i++) { 

if (strcasecmp (argn [i] , "loop") == 0) { 
if (strcasecmp (argv [i] , "true") == 0 | | 
strcasecmp (argv [i] , "yes") == 0) { 
This->loop = -0; 

} 
} 

else if (strcasecmp (argn [i] , "autostart") == 0) { 
if (strcasecmp (argv [i] , "false") == 0 | | 
strcasecmp (argv [i] , "no") == 0) { 
This->pluginState = PLUGIN_STOPPED; 

} 
} 

} 

} 

/* fprintf (stderr, "33 INSTANCE: %xx\n", instance); f flush (stderr) 

/* Load associated JAVA class */ 
(void) setupLiveConnect (instance, This); 
/* fprintf (stderr, "44 INSTANCE: %xx\n", instance); f flush (stderr) 

return NPERR_NO_ERROR ; 

} 

NPError 

NPP_Destroy (NPP instance, NPSavedData** save) 

{ 

Pluginlnstance* This; 

if (instance == NULL) 

return NPERR_INVALID_INSTANCE_ERROR; 

This = (Pluginlnstance*) instance- >pdata; 

/* PLUGIN DEVELOPERS: 

* If desired, call NP_MemAlloc to create a 

* NPSavedDate structure containing any state information 

* that you want restored if this plugin instance is later 

* recreated. 
*/ 

/* quiet things up ASAP */ 

if (This->pluginState == PLUGIN_PLAYING) { 

/* ' ' means toggle pause */ 
write (This->pipes [1] , " ", 1) ; 

} 



if (This != NULL) { 

/* get rid of the temporary file */ 
(void) unlink (This- >filename) ; 



/* clean up IPC */ 



close (This->pipes [1] ) ; 
close (This->pipes [0] ) ; 

#ifdef XP_UNIX 

if (This->logoPixmap != -1) XFreePixmap (This->display,. This - >logoPixmap) ; 

if (This->playupPixmap != -1) XFreePixmap (This->display, This- >playupPixmap) ; 

if (This->playdnPixmap != -1) XFreePixmap (This->display, This- >playdnPixmap) ; 

if (This->pauseupPixmap < = -1) XFreePixmap (This- >display , This- 
>pauseupPixmap) ; 

if (This->pausednPixmap != -1) XFreePixmap (This- >display, This- 
>pausednPixmap) ; 

if (This->stopupPixmap != -1) XFreePixmap (This->display, This- >stopupPixmap) ; 
if (This->stopdnPixmap != -1) XFreePixmap (This->display, This- >stopdnPixmap) ; 
#endif 

/* stop player */ 
stopMidiPlayer (This->pid) ; 

NPN_MemFree (instance- >pdata) ; 
instance- >pdata = NULL; 

} 

return NPERR_NO_ERROR ; 

} 

/* give buttons the right look for the state of the plugin */ 

static void setButtons (Pluginlnstance* This, pluginPlayState state) { 

switch (This->pluginState = state) { 

case PLUG I N_P LAYING : 

if (This->playdnPixmap != -1) 

XtVaSetValues (This->play, XmNlabelType , XmPIXMAP, XmNlabelPixmap , This- 
>playdnPixmap, NULL) ; 

if (This->pauseupPixmap != -1) 

XtVaSetValues (This->pause, XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>pauseupPixmap, NULL) ; 

if (This- >stopupPixmap != -1) 

XtVaSetValues (This->stop, XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>stopupPixmap, NULL) ; 
break; 

case PLUGIN_PAUSED : 

if (This->playupPixmap != -1) 

XtVaSetValues (This- >play, XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>playdnPixmap, NULL) ; 

if (This->pausednPixmap != -1) 

XtVaSetValues (This->pause, XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>pausednPixmap, NULL) ; 

if (This->stopupPixmap != -1) 

XtVaSetValues (This- >s top,. XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>stopupPixmap, NULL) ; 
break; 

case PLUGIN_STOPPED : 

if (This->playupPixmap != -1) 



XtVaSetValues (This- >play, XmNlabelType , XmPIXMAP, XmNlabelPixmap, This- 
>playupPixmap, NULL) ; 

if (This->pauseupPixmap != -1) 

XtVaSetValues (This- >pause , XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>pauseupPixmap, NULL) ; 

if (This- >stopdnPixmap != -1) 

XtVaSetValues (This->stop, XmNlabelType, XmPIXMAP, XmNlabelPixmap, This- 
>stopdnPixmap, NULL) ; 
break; 

} 

} 

/* handle state changes caused by button pushes */ 

static void pauseSelected (Widget w, XtPointer client_data, XtPointer call_data) { 

Pluginlnstance *This = (Pluginlnstance *) client_data; 

if (This->pluginState ! = PLUGIN_STOPPED) { 

/* ' 1 means toggle pause */ 
write (This->pipes [1] , " " , 1) ; 

setButtons (This, This->pluginState == = PLUGIN_PAUSED? PLUGIN_PLAYING : 
PLUGIN_PAUSED) ; 
} 

} 

static void playSelected (Widget w, XtPointer client_data, XtPointer call_data) { 

Pluginlnstance *This = (Pluginlnstance *) client_data,* 

if (This->pluginState != PLUGIN_PLAYING) { 

/* ' ' means toggle pause */ 
write (This->pipes [1] , " 1) ; 

setButtons (This , PLUG I N_P LAYING) ; 

} 

} 

static void stopSelected (Widget w, XtPointer client_data, XtPointer call_data) { 

Pluginlnstance *This = (Pluginlnstance *) client_data; 

if (This->pluginState == PLUGIN_PAUSED) { 

/* ' q ' means toggle pause, quit, then toggle pause */ 
write (This->pipes [1] , " q " , 3) ; 

setButtons (This, PLUGIN STOPPED); 



else if (This->pluginState == PLUGIN_PLAYING) { 

/* • q 1 means quit, then toggle pause */ 
write (This- >pipes [1] , M q ", 2); 

setButtons (This, PLUGIN_STOPPED) ; 

} 

} 

static void writePlayStatus (Widget w, XtPointer closure, XEvent* event, Boolean* 



NPN_Status ( (NPP) closure, "Play MIDI music"); 
*b = False; 

} 

static void writePauseStatus (Widget w, XtPointer closure, XEvent* event, 
Boolean* b) { 

NPN_Status ( (NPP) closure, "Pause/Resume MIDI music"); 
. *b = False; 

} 



static void writeStopStatus (Widget w, XtPointer closure, XEvent* event, Boolean* 



NPN_Status ( (NPP) closure, "Stop MIDI music"); 
*b = False; 

} 



static void clearStatus (Widget w, XtPointer closure, XEvent* event, Boolean* b) { 

NPN_Status ( (NPP) closure , " " ) ; 
*b = False; 

} 



NPError 

NPP_SetWindow (NPP instance, NPWindow* window) 

{ 

Pluginlnstance* This; 

if (instance == NULL) 

return NPERR_INVALID_INSTANCE_ERROR; 

if (window == NULL) 

return NPERR NO ERROR; 



This = (Pluginlnstance*) instance- >pdata; 



fprintf (This->tst, n SetWindow\n" ) ; f flush (This- >tst) ; 



/* 

* PLUGIN DEVELOPERS: 

* Before setting window to point to the 

* new window, you may wish to compare the new window 

* info to the previous window (if any) to note window 

* size changes, etc. 
*/ 

#ifdef XPJJNIX 

fprintf (This->tst, "setCallBack\n" ) ; f flush (This->tst) ; 
{ 



Widget netscape_widget , form, logo; 
XpmAt tributes attr ; 



NPSetWindowCallbackStruct *winInfo = (NPSetWindowCallbackStruct *)window- 
>ws_inf o; 

fprintf (This->tst , "post setCallBack: winlnfo: %xx\n", winlnf o) ; f flush (This- 
>tst) ; 

fprintf (This->tst, "post setCallBack: display: %xx\n", winlnf o- 
>display) ; f flush (This - >tst ) ; 

fprintf (This->tst, "window: %xx x: %xx y: %xx width: %xx height: %xx clipRect 
%xx ws-info: %xx\n", 

window- >window, window- >x, window- >y, window- >width, window- >height , window- 
>clipRect, window- >ws_info) ; f flush (This - >tst) ; 



This->display = winlnf o->display; 
fprintf (This->tst, "done display\n") ; f flush (This- >tst) ; 

/* tell XPM to allocate fairly close (not exact) colors from the window's 
colormap */ 

attr . valuemask = 

XpmSize | XpmCloseness | XpmAllocCloseColors | XpmExactColors | XpmColormap | XpmDepth | Xpm 
Visual; 

attr .closeness = 30000; 

attr . alloc_close_colors = True; 

attr .exactColors = False; 

attr .colormap = winlnf o->colormap; 

attr. depth = winlnf o->depth; 

attr. visual = winlnf o->visual ; 
fprintf (This- >tst, "colormap: %xx depth: %xx visual: %xx type: %xx\n", 
attr. colormap, attr. depth, attr. visual, winlnfo- >type) ; f flush (This->tst) ; 

/* while it's at it, tell us what size the logo is */ 

/* reuse the pixmap (if possible) , assume the colormap and depth will alway 
be the same */ 

/* otherwise we'd have to call XFreePixmap in the XtNdestroyCallback for 
each widget */ 

if (This->playupPixmap == -1) { 

if (XpmCreatePixmapFromData (This->display, (Window) window- >window, ump, 
&This->logoPixmap, NULL, &attr) == XpmSuccess) { 



This->width = attr. width; 
This->height = attr. height; 

} 

} 

fprintf (This->tst , "create Pixmap l\n" ); f flush (This->tst) ; 
if (This->playupPixmap == -1) 

(void) XpmCreatePixmapFromData (This->display , (Window) window- >window, 
playup, &This->playupPixmap, NULL, fcattr) ; 

fprintf (This->tst, "create Pixmap 2\n" ); f flush (This->tst) ; 
if (This->playdnPixmap == -1) 

(void) XpmCreatePixmapFromData (This - >display , (Window) window- >window, 
playdn, &This->playdnPixmap, NULL, &attr) ; 



fprintf (This->tst, "create Pixmap 3\n" ); f flush (This->tst) ; 
if (This->pauseupPixmap == -1) 

(void) XpmCreatePixmapFromData (This- >display , (Window) window- >window, 
pauseup, &This->pauseupPixmap, NULL, fcattr) ; 

if (This->pausednPixmap == -1) 

(void) XpmCreatePixmapFromData (This- >display , (Window) window- >window, 
pausedn, &This->pausednPixmap, NULL, fcattr) ; 



if (This - >stopupPixmap == -1) 

(void) XpmCreatePixmapFromData (This- >display , (Window) window- >window, 
stopup, &This->stopupPixmap, NULL, fcattr) ; 

if (This->stopdnPixmap == -1) 

(void) XpmCreatePixmapFromData (This - >display, (Window) window- >window, 
stopdn, &This - >stopdnPixmap, NULL, &attr) ; 

/* determine our parentage */ 

{ 

Display *disp; 

disp = This->display ; 

fprintf (This->tst, "Disp Ht : %d Disp Wd: %d \n", DisplayHeight (disp, 0) , 
DisplayWidth (disp, 0)); 

} 

fprintf (This->tst, "parentage %xx %xx dipslaylist: %xx\n" , This - >display , 
(Window) window- >window, _XtperDisplayList) ; f flush (This- >tst) ; 



netscape_widget = XtWindowToWidget (This- >display , (Window) window- >window) ; 
/* fit our widgets into a form */ 

/* no spacing between widgets, we use pixmaps in each widget to define 
borders */ 

fprintf (This->tst, "UMP form %xx %xx\n n , xmFormWidgetClass , netscape_widget) ; 
f flush (This->tst) ; 

form = XtVaCreateWidget ( "UMP form", xmFormWidgetClass, netscape_widget , 
NULL) ; 



/* Some buttons */ 
fprintf (This->tst, "Managed Widget\n") ; f flush (This->tst) ; 

This->stop = XtVaCreateManagedWidget ("stop" , xmPushButtonWidgetClass , form, 

XmNshadowThickness, 0, 

XmNhighlightThickness , 0 , 

XmNmarginHeight , 0 , 

XmNmarginWidth, 0, 

XmNtopAt tachment , XmATTACH_FORM , 

XmNleft Attachment, XmATTACH_FORM , 

XmNtopOf f set, 0, 

XmNlef tOff set, 28, 

NULL) ; 

This->pause = XtVaCreateManagedWidget ( "pause" , xmPushButtonWidgetClass, 
form, 

XmNshadowThickness , 0 , 

XmNhighlightThickness , 0 , 

XmNma r g i nHe i gh t , 0 , 

XmNmarginWidth, 0, 

XmNtopAt tachment , XmATTACH_FORM , 

XmNlef tAttachment , XmATTACH_WIDGET, 

XmNlef tWidget, This- >s top, 

XmNtopOf f set , 0, 

XmNlef tOff set, 6, 

NULL) ; 

This->play = XtVaCreateManagedWidget ( "play " , xmPushButtonWidgetClass, form, 

XmNshadowThickness , 0 , 
XmNhighlightThickness , 0 , 
XmNmarginHeight , 0 , 
XmNmarginWidth, 0, 
XmNtopAt tachment , XmATTACH_FORM , 
XmN 1 e f t At t a chme n t , XmATTACH_W IDGET , 
XmNlef tWidget , This - >pause , 
XmNtopOf f set, 0, 
XmNleftOf fset, 7, 
NULL) ; 

/* tell us when the buttons are pushed */ 

XtAddCallback (This->play, XmNactivateCallback, playSelected, (XtPointer) 
This) ; 

XtAddCallback {This ->pause, XmNactivateCallback, pauseSelected, (XtPointer) 
This) ; 

XtAddCallback (This->stop, XmNactivateCallback, stopSelected, (XtPointer) 
This) ; 

/* write help text when the mouse is over the button */ 
XtAddEventHandler (This->play, EnterWindowMask, False, writePlayStatus , 

(XtPointer) instance) ; 

XtAddEventHandler (This->play, LeaveWindowMask, False, clearStatus, 

(XtPointer) instance) ; 

XtAddEventHandler (This - >pause , EnterWindowMask, False , writePauseStatus , 
(XtPointer) instance) ; 

XtAddEventHandler (This - >pause , LeaveWindowMask, False , clearStatus , 
(XtPointer) instance) ; 



XtAddEventHandler (Thi s - >stop , EnterWindowMask , Fal se , wri teStopS tatus , 
(XtPointer) instance) ; 

XtAddEventHandler (Thi s - >stop , LeaveWindowMask , Fal se , clearStatus , 
(XtPointer) instance) ; 



/* Here's our logo, no border around our nice pixmap */ 

logo = XtVaCreateManagedWidget ( "UMP logo", xmLabelWidgetClass , form, 

XmNshadowThickness , 0 , 

XmNhighlightThickness , 0 , 

XmNmarginHeight , 0, 

XmNmarginWidth, 0, 

XmNtopAttachment, XmATTACH_FORM , 

XmNleftAttachment, XmATTACH_FORM , 

XmNtopOf f set , 0, 

XmNleftOf f set , 0, 

NULL) ; 

/* show the logo */ 

if (This- >logoPixmap != -1) 

XtVaSetValues (logo, XmNlabelType, XmPIXMAP, XmNl abel Pixmap , This- 
>logoPixmap, NULL) ; 

/* give buttons the right look and feel */ 
setButtons (This, This - >pluginState) ; 

/* hand over control. Our job is done! */ 
XtManageChild (f orm) ; 

/* jam it to the correct size, otherwise Netscape lets us go wild! */ 

XtMakeResizeRequest (form, 

This - >width<window- >width?This - >width : window- >width , 
Thi s - >he ight < window- >he ight ?Thi s - >he ight : window - >he ight , 
NULL, NULL) ; 

} 

#endif /* XP_UNIX */ 
return NPERR_NO_ERROR ; 

} 



NPError 

NPP_NewStream (NPP instance, 
NPMIMEType type, 
NPStream *stream, 
NPBool seekable, 
uintl6 *stype) 

{ 

NPByteRange range; 
Pluginlnstance* This; 

if (instance == NULL) 

return NPERR INVALID INSTANCE ERROR; 



This = 



(Pluginlnstance* ) instance- >pdata; 



/* open the file to store data in */ 

This->fd = open (This->f ilename, 0_RDWR 1 0_CRE AT , 0666); 
if (This->fd == -1) return NPERR_GENERIC_ERROR; 

re turn NPERR_N0_ERR0R / 

} 



/* PLUGIN DEVELOPERS: 

* These next 2 functions are directly relevant in a plug-in which 

* handles the data in a streaming manner. If you want zero bytes 

* because no buffer space is YET available, return 0. As long as 

* the stream has not been written to the plugin, Navigator will 

* continue trying to send bytes. If the plugin doesn't want them, 

* just return some large number from NPP_WriteReady ( ) , and 

* ignore them in NPP_Write(). For a NP_ASFILE stream, they are 

* still called but can safely be ignored using this strategy. 
*/ 

int32 STREAMBUFS I ZE = 0X0FFFFFFF; /* If we are reading from a file in NPAsFile 

* mode so we can take any size stream in our 

* write call (since we ignore it) */ 

int32 

NPP_WriteReady (NPP instance, NPStream *stream) 

{ 

Pluginlnstance* This,* 
if (instance != NULL) 

This = (Pluginlnstance*) instance- >pdata ; 

return STREAMBUFS I ZE ; 

} 

int32 

NPP_Write (NPP instance, NPStream *stream, int32 offset, int32 len, void *buffer) 

{ 

if (instance != NULL) 

{ 

Pluginlnstance* This = (Pluginlnstance*) instance- >pdata; 
len = write (This->fd, buffer, len); 
if (len <0) close (This->fd) ; 

} 

return len; /* The number of bytes accepted */ 

} 



NPError 

NPP_DestroyStream (NPP instance, NPStream *stream, NPError reason) 

{ . 

Pluginlnstance* This; 

if (instance == NULL) 

return NPERR_INVALID_INSTANCE_ERROR; 
This = (Pluginlnstance*) instance->pdata; 



close (This->fd) / 



/* stop another player in progress ???*/ 
stopMidiPlayer (This - >pid) ; 

/* yahoo, now we have the data, run timidity */ 

This->pid = startMidiPlayer (This->f ilename, This->pipes, This->loop, This- 
>pluginState == PLUGIN__PLAYING) ; 

NPN_Status (instance, "Playing MIDI file"); 

return NPERR_NO_ERROR; 

} 

void 

NPP_StreamAsFile (NPP instance, NPStream *stream, const char* fname) 

{ 

Pluginlnstance* This; 
if (instance != NULL) 

This = (Pluginlnstance*) instance- >pdata; 

. /* just spwan timidity */ 

This->pid = startMidiPlayer (fname, This->pipes, This->loop, This- >pluginState 
== PLUG I N_P LAYING) ; 

NPN_Status (instance, "Playing MIDI file"); 

} 



void 

NPP__Print (NPP instance, NPPrint* printlnfo) 
{ 

if (printlnfo == NULL) 
return; 

if (instance != NULL) { 

Pluginlnstance* This = (Pluginlnstance*) instance ->pdata; 

if (print Info- >mode NP_FULL) { 
/* 

* PLUGIN DEVELOPERS: 

* If your plugin would like to take over 

* printing completely when it is in full-screen mode, 

* set printlnfo- >pluginPrinted to TRUE and print your 

* plugin as you see fit. If your plugin wants Netscape 

* to handle printing in this case, set 

* printInfo->pluginPrinted to FALSE (the default) and 

* do nothing. If you do want to handle printing 

* yourself, printOne is true if the print button 

* (as opposed to the print menu) was clicked. 

* On the Macintosh, platf ormPrint is a THPrint; on 

* Windows, platf ormPrint is a structure 

* (defined in npapi.h) containing the printer name, port, 

* etc. 



*/ 



void* platf ormPrint = 

printInfo->print . fullPrint .platf ormPrint ; 
NPBool printOne = 

printlnf o->print . fullPrint .printOne; 
/* Do the default*/ 

printlnf o->print . fullPrint .pluginPrinted = FALSE; 

} 

else { /* If not fullscreen, we must be embedded */ 
/* 

* PLUGIN DEVELOPERS: 

* If your plugin is embedded, or is full-screen 

* but you returned false in pluginPrinted above, NPP_Print 

* will be called with mode == NP_EMBED. The NPWindow 

* in the printlnfo gives the location and dimensions of 

* the embedded plugin on the printed page . On the 

* Macintosh, platf ormPrint is the printer port; on 

* Windows, platf ormPrint is the handle to the printing 

* device context. 
*/ 

NPWindow* printwindow = 

& (printlnf o->print . embedPrint . window) ; 

void* platf ormPrint = 

printlnfo- >print . embedPrint . platf ormPrint ; 

} 

} 

} 

#ifndef INCLUDE_LIVE_CONNECT 

setupLiveConnect (NPP instance, Pluginlnstance *This){} 
jref 

NPP_GetJavaClass () 

{ 

return NULL; 

} 

void 

NPP_Shutdown (void) 

{ 
} 

#else 

/* IMHO, Live Connect adds lots of overhead and complexity compared to 
the extra functionality it provides (for UMP, anyway) . Here we 
allow Java applets or JavaScript to operate the stop/pause/play 
buttons. For this, we must load the "UMP" java class file, which 
must be in the user's CLASS PATH . Then we cannot even operate 
directly on the Widgets, because X gets confused when run from an 
applet thread, so we use a short (msec) timeout which actually 
does the work. 
*/ 



ttinclude "UMP.c" /* created by : javac UMP.java; javah -jri -stubs UMP */ 

setupLiveConnect (NPP instance, Pluginlnstance *This) { 

/* store the pointer-to-object for later use (one Java peer per plugin 
instance) */ 

UMP_setThis (NPN_Get JavaEnv () , NPNJ3et JavaPeer { instance) , (int) This) ; 

} 

jref 

NPP_Get JavaClass ( ) 
{ 

/* enable Live Connect */ 

return use_UMP (NPN_Get JavaEnv ( ) ) ; 

} 

void 

NPP_Shutdown (void) 

{ 

/* all done with Live Connect */ 
unuse_UMP (NPN_Get JavaEnv () ) ; 

} 

/* functions for LiveConnect */ 

static void stopSelectedCallback (XtPointer This, Xtlntervalld* id) { 
stopSelected(NULL, This, NULL); } 

void native_UMP_stopSelected (JRIEnv* env, UMP *self, jint This) { 
Pluginlnstance *Ump = (Pluginlnstance *)This; 

(void) XtAppAddTimeOut (XtWidgetToApplicationContext (Ump->stop) , 1, 
stopSelectedCallback, (XtPointer) This) ; 

} 



static void playSelectedCallback (XtPointer This, Xtlntervalld* id) { 
playSelected(NULL, This, NULL); } 

/* functions for LiveConnect */ 

void native_UMP_playSelected (JRIEnv* env, UMP *self, jint This) { 
Pluginlnstance *Ump = (Pluginlnstance *)This; 

(void) XtAppAddTimeOut (XtWidgetToApplicationContext (Ump->stop) , 1, 
playSelectedCallback, (XtPointer) This) ; 

} 



static void pauseSelectedCallback (XtPointer This, Xtlntervalld* id) { 
pauseSelected(NULL, This, NULL); } 



/* functions for LiveConnect */ 

void native_UMP_pauseSelected(JRIEnv* env, UMP *self, jint This) { 
Pluginlnstance *Ump = (Plugihlnstance *)This; 

(void) XtAppAddTimeOut (XtWidgetToApplicationContext (Ump->stop) , 1, 
pauseSelectedCallback, (XtPointer) This) ; 

} 



#endif 



/* 

* plugextl.O is a compiled version of plugext for Tel. 

* -- Clif Flynt <clif @cf lynt . com> Jan 3, 1999 
* 

* -- Modified from get . c by 

* Jean-Claude Wippler <jcw@equi4.com>, September 17, 1998. 
*/ 



#include <stdio.h> 
#if defined (_WIN32) 

#include <windows.h> 
#else 

#include <dlfcn.h> 
#endif 

#include <tcl.h> 



Tcl_HashTable *dlopen_hashtablePtr ; 
extern int dummy Debug Print ; 

void dlopen_InitHashTable () { 

dlopen_hashtablePtr = (Tcl_HashTable *) ckalloc ( sizeof (Tcl_HashTable) ) ; 
Tcl_InitHashTable (dlopen_hashtablePtr , TCL_STRING KEYS) ; 

} 

static int 

dlOpen (ClientData x, Tcl_Interp* interp, int objc, Tcl_Obj *CONST* objv) 

{ 

char hash_handle [50] ; 
char *tmp; 
void *handle ; 

Tcl_HashEntry *hashEntryPtr ; 
Tcl_0bj *returnObjPtr ; 
int isNew; 



if (objc > 1) 

{ 

tmp = Tcl_GetStringFromObj (objv [1] , NULL) ; 
#if defined (_WIN32) 

handle = LoadLibrary ( tmp) ; 
#else 

handle = dlopen(tmp, RTLD^NOW | RTLD_GLOBAL) ; 

#endif 

if (! handle) { 

fprintf (stderr, " FAIL IN DLOPEN : %s\n", tmp) ; 
#if defined (_WIN32) 

fprintf (stderr, n %s\n", "Is there a windows errro fen"); 

#else 

fprintf (stderr, "%s\n ,! , dlerrorO); 

#endif 

return (TCL_ERR0R) ; 

} 



/* 

* Allocate the space and initialize the return structure. 
*/ 

sprintf (hashjiandle, "X%x M , handle) ; 

hashEntryPtr = Tcl_CreateHashEntry <dlopen_hashtablePtr , hashjiandle, 
&isNew) ; 

Tcl_SetHashValue (hashEntryPtr, handle) ; 
returnObjPtr = TclJJewStringObj (hashjiandle, -1) ; 
Tcl_SetObj Result (interp, returnObjPtr) ; 
return TCL_OK; 

} 

getfpucwO {printf ( "hit getfpucw\n n ) ; f flush (stdout) ; } 

#if defined (_WIN32) 
static int 

dlSym(ClientData x, Tcl_Interp* interp, int objc, TcljDbj * CONST* objv) { 
Tc l_Ob j * r e t urnOb j Pt r ; 

returnObjPtr = Tcl_NewStringObj { "dlSym not implemented for Windows", -1) ; 

Tcl_SetObjResult (interp, returnObjPtr) ; 
return TCL_OK; 

} 

#else 

static int 

dlSym (ClientData x, Tcl_Interp* interp, int objc, Tcl_Obj * CONST* objv) 

char *hash_handle; 
char *tmp; 
void *handle,- 

Tcl^HashEntry *hashEntryPtr ; 

Tcl_Ob j * returnOb j Pt r ; 
void *locat; 
char rtnString [20] ; 



if (objc > 1) 
{ 

hashjiandle = Tcl_GetStringFromObj (obj v [1] , NULL) ; 

hashEntryPtr = Tcl_FindHashEntry (dlopenJiashtablePtr , hash_handle) ; 

if (hashEntryPtr == (Tcl_HashEntry *) NULL) { 
char errString [80] ; 
Tcl_Obj *errCodePtr; 



/* 



* Define an error code from an integer, and set errorCode . 
*/ 

errCodePtr = Tcl_NewIntObj (554) ; 
Tcl_SetObjErrorCode (interp, errCodePtr) ; 

/* 

* This string will be placed in the global variable errorlnfo 
*/ 

sprintf (errString, "Hash object \"%s\" does not exist.", hash_handle) ; 
Tcl_AddErrorInf o ( interp , errString) ; 

/* 

* This string will be returned as the result of the command. 
*/ 

Tcl_AppendResult (interp, "can not find hashed object named \"", 

hash_handle, "\ M ", (char *) NULL) ; 
return TCL_ERROR; 

} 

handle = (char * ) TclJ3etHashValue (hashEntryPtr) ; 
tmp = Tcl_GetStringFromObj (objv [2] , NULL); 
locat = dlsym (handle, tmp); 
sprintf (rtnString, "%x", locat) ; 

} 

/* 

* Allocate the space and initialize the return structure. 
*/ 



returnObjPtr = Tcl_NewStringObj (rtnString, -1) ; 
Tcl_SetObjResult (interp, returnObjPtr) ; 
return TCL_OK; 

} 

#endif 

#if defined (_WIN32) 

#define WINEXPORT(t) 
#elif defined (_WIN) 

#define WINEXPORT(t) 
#else 

#define WINEXPORT(t) 
#endif 

#if defined ( MWERKS ) 

#pragma export on 
#endif 



declspec (dllexport) t 

t _export 
t 



WINEXPORT ( int ) Dlopen_Init (Tcl_Interp* interp) 
{ 

Tcl_CreateObj Command (interp, "dlopen", dlOpen, 0, 0) ; 
Tcl_CreateObj Command (interp, "dlsym", dlSym, 0, 0) ; 

dlopen_InitHashTable 0 ; 

Tcl_PkgProvide (interp, "dlopen", "1.0") / 
return TCLJDK; 

} 

WINEXPORT (int) Dlopen_SafeInit (Tcl_Interp* interp) 

{ 

return Dlopen_Init (interp) ; 

} 



package require plugext 



# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 



Embed - state variable 
Embed (uniq) - A unique number for the instances 
Embed (UPPER. $id) - A keyword/value pair for an instance. 
Embed (lower . $id) - A value assigned by the embed command. 



Embed (MIMETYPE) 
Embed (instance . $id) 
Embed (canvas . $id) 



- The command for this creation of the plugin 

- The command for this instance of the plugin 

- The canvas for this instance of the plugin 



Adds one new arg to embed xx=yy - 



KEEP0PEN=1 



KEEPOPEN=0 



default - the embed call does not close the stream after 
sending data to the plugin. 

default - the embed call closes the stream after 
sending data to the plugin. Closing the stream causes some 
plugins to start. 



namespace eval EMBED { 
variable Embed 

variable output [open argh w] 

set Embed (uniq) 1 

set Embed (CanvasParent) 

switch $tcl__platf orm (platform) { 
"unix" { 

package require .dlopen 
set Embed (xref) { 

{ .mid audio/x-midi /usr/lib/netscape/plugins/ump . so} 
{ .midi audio/x-midi /usr/lib/netscape/plugins/ump . so} 

} 

} 

"windows" { 

set Embed (xref) { 

.rpm audio/x-pn-realaudio-plugin . /npp!3260 . dll } 
. rm audio/x-pn-realaudio-plugin . /nppl3260 . dll } 
. spl application/f uturesplash . /npswf 32 .dll} 
. swf application/shockwave-f lash . /npswf 32 .dll } 
.pdf application/pdf . /nppdf 32 . dll } 
.afl video/animaf lex ./nprub.dll} 
. ivf video/x-ivf . /npindeo . dll } 
.wav audio/x-wav . /npwave . dll } 
.mid audio/x-midi ./midid.dll} 
.midi audio/x-midi ./midid.dll} 
.npw application/x-npwrap . /NPWrap.dll} 

# {.mid audio/x-midi . /npmidi . dll } 

# {.midi audio/x-midi . /npmidi . dll } 



} 



} 



proc getCanvas {id} { 
variable Embed 

if {[info exists Embed (canvas . $id) ] } { 



return $Embed (canvas . $id) 
} else { 

return " " 

} 

} 

proc getlnstance {id} { 
variable Embed 

if {[info exists Embed (canvas .$ id) ] } { 
return $Embed (instance . $id) 

} else { 

return " " 

} ■ 

} 

proc setCanvasParent {windowID} { 

set Embed (CanvasParent) $windowID 

} 



proc embed {args} { 

global tcl_platform 
variable Embed 
variable output 

set id $Embed (uniq.) 
incr Embed (uniq) 

set mode " EMBED" 

set Embed (HIDDEN. $id) true 

set Embed (KEEPOPEN . $id) 1 

# 

# Parse the args. 

# Find the key=val and key="val" pairs and convert them to 

# set Embed (KEY) val 

# commands . 
# 

foreach arg $args { 

if {[string first $arg] < 0} {continue} 

foreach {key val} [split $arg "="] { 

set val [string trim $val {"}] 

set key [string toupper $key] 

} 

eval [list set Embed ($key. $id) $val] 

} 
# 

# If the plugext extension is not loaded, load it. 

# If *n[ui]x platform, dlopen the required X libraries. 
# 

if {[string match « " [info command plugext]]} { 

if {[string match $tcl__platf orm (platform) unix] } { 
puts $output "loading dlopen, etc" ; flush $output 
# load " . /dlopen" 



dlopen ,f /usr/XllR6/lib/libXt . so" 
dlopen "/usr/local/lib/libXm. so" 

} 

# load plugext 
plugext debug 1 



# 

# Figure out which plugin we need. Start by checking 

# the SRC=...ext to see if we've got that extension in our list. 
# 

if {[info exists Embed (SRC .$ id) ] } { 

set ext [file extension $Embed (SRC . $id) ] 
set pos [lsearch $Embed(xref) *${ext}*] 
if {$pos >= 0} { 

set pluginPath [lindex [lindex $Embed(xref) $pos] 2] 
if { ! [inf o exists Embed (TYPE . $id) ] } { 

set Embed (TYPE . $id) [lindex [lindex $Embed(xref) $pos] 1] 

} 

} 

} 

# If no SRC matched, see if we can get the required info 

# via the Mime TYPE=xx value 

if { ! [info exists pluginPath] && [info exists Embed (TYPE . $id) ] } { 
set pos [lsearch $Embed(xref) *$Embed (TYPE . $id) *] 
if {$pos < 0} {break} 

set pluginPath [lindex [lindex $Embed(xref) $pos] 2] 

} 

# If we still can't figure out what to use, give up. 

if { ! [info exists pluginPath] } { 

error "No plugin defined for $args" 

} 

# Load the required plugin. 

# Save it's handle in a state variable keyed by the Mime Type 

set pluginID $Embed (TYPE . $id) 

if { ! [inf o exists Embed ($pluginID) ] } { 

set Embed ($pluginID) [plugext create TST2 -path $pluginPath] 

} 

foreach a $args { 

if { [string first " = " $a] > 0} { 
if { [info exists embedargs] } { 

append embedargs " " $a 
} else { 

set embedargs $a 

} 

} 

} 



set Embed (instance . $id) [$Embed ($pluginID) new \ 

-mime $Embed (TYPE . $id) -embed $embedargs \ 
-mode $mode] 

# 

# Generate a window, if HEIGHT and WIDTH are set, and HIDDEN=f alse/0 

# If HIDDEN == True but HEIGHT/WIDTH are missing, set default size 

# 200x200 

# Can't use ! with a string, so I kludge to get ! hidden 

if { " $Embed (HIDDEN . $id) " } {} else { 
set ht 200; 
set wd 2 00; 

if { [info exists Embed (HEIGHT. $ id) ] } { 
set ht $Embed (HEIGHT. $id) 

} 

if {[info exists Embed (WIDTH . $id) ] } { 
set wd $Embed (WIDTH. $id) 

} 

set Embed (canvas . $id) [canvas $Embed (CanvasParent ) . cPLUGIN$id \ 
-height $ht -width $wd -background yellow] 

puts $output " CANVAS ; $Embed (canvas . $id) :: $ht x $wd M ; flush $output 

# Grid and update, to make sure the base OS has really allocated 

# space for this window before sending it to the plugin. Else, 

# life gets exciting. 

grid $Embed (canvas . $id) -row 0 -column 0 
update; update idle; 

$Embed ( instance. $id) setwindow $Embed (canvas .$ id) 
grid forget $Embed (canvas .$ id) 

} 
# 

# Figure out the type of stream we'll need to interact with 

# Then close the stream again. 
# 

set Embed (out .$ id) [$Embed (instance . $id) open -url f ile : $Embed (SRC . $id) -mime 
$Embed(TYPE.$id) w] 

f configure $Embed (out . $id) -translation binary 
set streamType [$Embed ( instance . $id) streamtype] 

puts $output "STR: $streamType" ; flush $output 

# 

# Dump data as required by the stream type. 
# 



switch $streamType { 
"asfile" { 



$Embed (instance. $id) streamfile $ Embed (SRC . $id) 

} 

"asf ileonly" { 

^ $Embed (instance. $id) streamfile $Embed (SRC . $id) 

"normal" { 

set in [open $Embed (SRC . $id) r] 
fconfigure $in -translation binary 

set maxTransfer [$Embed (instance . $id) writeready $Embed (out . $id) ] 
if {$maxTransf er > 64000} { 
set maxTransfer 64000 

} 

puts $output "maxTransfer: $maxTransf er " 
fconfigure $Embed (out . $id) -buffersize $maxTransfer 

# If the file is small go for speed. 

# If it's greater than 64K, reduce the memory footprint, 

# since it won't be fast no matter what we do. 

if {[file size $Embed (SRC . $id) ] > 64000} { 
while { ! [eof $in] } { 

set dat [read $in 4096] 

puts -nonewline $Embed (out . $id) $dat 

} 

flush $Embed (out . $id) 
} else { 

set dat [read $in] 
close $in 

puts -nonewline $Embed (out . $id) $dat 
flush $Embed (out . $id) 

} 

puts "DONE XFER" 

} 

default { 

error "Unrecognized stream value: $streamType" 

} 

if { ! $Embed (KEEPOPEN . $id) } { 

puts "CLOSING $Embed(out.$id) » 
closeFile $id 

} 

return $id 



proc resetWindow {id} { 
variable Embed 

if {"$Embed (HIDDEN. $ id) "} {} else { 

$Embed (instance. $id) setwindow $Embed (canvas .$ id) 

} 

} 

proc closeFile {id} { 
variable Embed 

if {[info exists Embed (out .$ id) ] } { 
close $Embed (out . $id) 
unset Embed (out . $id) 



